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Abstract 

This  research  was  directed  toward  the  investigation  of  nonlinear  large  displacements 
and  moderate  rotations  of  composite  beam  structures  considering  a  finite  element  potential 
energy  approach  incorporating  through  the  thickness  shear  strain  as  an  analytical  function. 
This  approach  was  compared  to  large  rotation  theories.  Test  cases  were  run  to  evaluate 
numerical  algorithms.  Riks  method  and  displacement  imposed  techniques  were  employed. 
The  limitations  and  advantages  of  both  methods  were  considered.  Loading  arrangements 
included  concentrated  forces  as  well  as  moments. 
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NONLINEAR  LARGE  DISPLACEMENT  AND 


MODERATE  ROTATIONAL  CHARACTERISTICS 
OF  COMPOSITE  BEAMS  INCORPORATING 
TRANSVERSE  SHEAR  STRAIN 

I.  Introduction 

Today’s  aerospace  industry  has  advanced  to  such  a  degree  that  optimum  performance 
is  not  available  from  the  use  of  isotropic  structural  elements.  Laminates  of  composite 
materials  are  now  used  extensively,  and  they  allow  optimization  of  the  strength  and  weight 
of  the  structural  element.  In  particular,  the  sequence,  number  and  orientation  of  plies  in  a 
laminate  may  be  varied  to  directionally  bias  the  strength  of  a  plate  or  a  shell.  Hence,  weight 
may  be  saved  since  unneeded  or  undesirable  stiffness  is  eliminated.  Since  the  laminates 
are  employed  in  highly  optimized  conditions  (i.e.  use  as  little  material  as  possible  to 
minimize  aircraft  weight),  large  factors  of  safety  are  not  available.  Consequently,  the 
optimized  structures  often  approach  collapse  loads.  Thus,  the  structural  engineer  must  be 
aware  of  the  loading  and  displacement  configurations  that  will  cause  collapse.  In  addition, 
knowledge  of  a  structural  element’s  behavior  after  collapse  allows  the  engineer  to  design  a 
forgiving  structure  that  avoids  catastrophic  failure. 

In  this  light,  much  work  has  been  done  to  predict  the  post-collapse  behavior  of 
anisotropic  plates  and  shells.  One  class  of  problems  are  those  in  which  the  structure 
becomes  geometrically  nonlinear  but  experiences  only  small  strains,  so,  the  material  con¬ 
tinues  to  be  linearly  elastic.  In  essence,  the  stiffness  of  the  structure  changes  not  because 
the  material  becomes  plastic  but  because  the  shape  of  the  structure  changes  radically.  To 
address  this  class  of  problems,  Palazotto  and  Dennis  have  developed  a  theory  and  gener¬ 
ated  a  FORTRAN  code  that  traces  the  equilibrium  path  of  orthotropic  cylindrical  shells 
including  the  following  (13): 

1.  geometric  nonlinearity  with  moderate  rotations  and  large  displacements, 
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2.  linear  elastic  behavior  of  laminated  anisotropic  materials, 

3.  cylindrical  shells  and  flat  plates, 

4.  parabolic  transverse  distribution  of  shear  stress, 

5.  all  cased  in  a  finite  element  approach. 

This  thesis  narrows  the  class  of  problems  considered  by  Palazotto  and  Dennis  from 
two  dimensions  to  one  dimension.  That  is,  the  techniques  for  plates  and  shells  are  simplified 
to  analyze  straight  beams  and  arches.  All  the  features  of  Palazotto  and  Dennis’s  theory  are 
retained,  only  the  dimensionality  is  reduced.  The  result  is  a  FORTRAN  code  which  is,  of 
course,  much  more  efficient  for  beams  and  arches  than  the  two  dimensional  version.  Also, 
since  the  one-dimensional  case  represents  the  simplest  possible  case  for  the  theory,  the 
present  code  allows  for  uncluttered  observation  of  the  rotational  and  displacement  limits 
of  Palazotto  and  Dennis’s  theory. 

A  two-dimensional  (2-D)  theory  to  describe  the  three  dimensional  (3-D)  behavior  of 
thin  plates  with  small  deflections  was  developed  by  Kirchhoff  (20).  Kirchhoff  assumed  that 
the  middle  plane  remains  unstrained,  normal  strains  were  small  enough  to  be  neglected, 
and  that  planes  normal  to  the  mid-plane  before  bending  remain  normal  and  unwarped  after 
bending.  The  third  assumption  translates  to  neglecting  transverse  shear.  Love  extended 
KirchhofF’s  methods  and  assumptions  to  thin  shells  under  small  deflections  (20).  Though 
these  Kirchhoff-Love,  or  classical,  theories  are  limited  to  isotropic  shells  and  plates  under 
small  deflections,  the  theories  are  applicable  for  many  problems  and  they  set  the  precedent 
for  using  the  shell’s  middle  surface  as  a  computational  datum  surface. 

Reissner  (18)  and  Mindlin  (11)  added  transverse  shear  consideration  to  the  classi¬ 
cal  theory.  The  Reissner-Mindlin  (RM)  approach,  or  first-order  transverse  shear  theory, 
allows  normals  to  the  datum  surface  to  rotate,  but  not  warp,  with  deformation.  Though 
consideration  of  transverse  shear  represents  an  improvement  over  classical  theory,  the  RM 
theory  does  not  satisfy  boundary  conditions  of  zero  transverse  shear  stress  on  the  top  and 
bottom  shell  surfaces.  Consequently,  finite  elements  based  on  first  order  theory  suffer  from 
shear  locking  as  the  shell  becomes  thin.  So,  shear  correction  factors  are  used  to  eliminate 
the  shear  locking  effect. 
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Most  recently  Reddy  (17)  and  others  have  presented  theories  which  account  for  trans¬ 
verse  shear  by  a  parabolic  shear  strain  distribution  through  the  plate  or  shell  thickness. 
This  distribution  satisfies  the  zefo  transverse  shear  stress  boundary  conditions  on  the  top 
and  bottom  surfaces  and,  as  a  result,  eliminates  shear  locking.  Reddy  also  applied  this 
theory  to  laminated  plates  (16)  where  he  assumes  laminated  anisotropy.  That  is,  each 
ply  layer  is  treated  as  an  orthotropic  material.  Palazotto  and  Dennis  (13)  apply  this 
parabolic  transverse  shear  strain  distribution  to  a  nonlinear  analysis  of  cylindrical  shells 
with  moderate  rotations  and  large  deformations. 

Few  analytical,  closed-form,  solutions  exist  for  shell  geometries,  so,  finite  elements 
solutions  are  almost  always  used.  Since  all  shell  and  plate  formulations  involve  simplifi¬ 
cations  from  the  three-dimensional  case,  3-D  elements  are  generally  not  used  for  plate 
or  shell  modeling  (3).  Three  types  of  shell  or  plate  elements  are  generally  used  (13): 
flat  elements  are  fine  for  plates  but  many  are  required  to  achieve  convergence  for  a  shell, 
two-dimensional  or  Love  theory  is  used  to  develop  curved  shell  elements,  or  curved  shell 
elements  are  formed  by  reducing  3-D  strain-displacement  relations. 

Finite  elements  of  the  third  type  above  resemble  3-D  elements  since  they  have  nodes 
on  the  top  and  bottom  surfaces.  These  elements  are  well  suited  to  first-order  shell  theory; 
however,  they  develop  shear  locking  problems  as  the  shell  gets  thin.  That  is,  the  stiffness 
due  to  transverse  shear  tends  to  increase  very  rapidly  as  the  shell  becomes  thin  resulting 
in  a  much  stiffer  mesh.  This  is  a  numerical  difficulty  which  can  be  compensated  for  by 
reduced  integration  (3)  or  shear  correction  factors. 

Two-dimensional  elements  had  only  been  applied  to  linear  problems  until  the  recent 
nonlinear  work  of  Reddy  and  Palazotto  and  Dennis. 

Roughly  paralleling  the  development  of  shell  and  plate  theory  have  been  theories 
dealing  with  beams  and  arches  (or  curved  beams).  In  fact,  beam  and  arch  problems 
are  one  dimension  simpler  than  plates  and  shells.  However,  many  structures  utilize  both 
isotropic  and  laminated  beams.  So,  the  effort  invested  in  reducing  sophisticated  2-D  shell 
and  plate  theories  to  1-D  arch  and  beam  theories  is  well  spent  since  more  efficient  finite 
element  codes  save  much  time  in  design  and  analysis  of  these  simpler  problems.  Also,  in 
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an  academic  sense,  reduction  of  2-D  theories  to  1-D  removes  coupling  between  orthogonal 
directions  so  that  the  rotational  and  displacement  limitations  of  a  shell  theory  can  be 
revealed. 

As  in  shell  theory,  the  three  classes  of  beam  theory  are  classical,  or  Kirchhoff;  first- 
order  transverse  shear,  or  Reissner-Mindlin;  and  higher-order  theories.  This  introduction 
considers  a  slightly  different  breakdown  to  discuss  theories  which,  in  subsequent  chapters, 
will  be  compared  to  results  of  the  present  theory.  Answers  to  the  following  questions  will 
be  used  to  classify  different  theories. 

1.  Does  the  theory  include  transverse  shear?  If  so,  is  the  shear  representation  first-order 
or  higher-order? 

2.  Does  the  theory  allow  extensibility  (stretching)  of  the  midplane  along  the  beam  long 
axis?  If  so,  are  any  or  all  of  the  higher-order  strain  terms  retained? 

3.  Does  the  formulation  use  total  Lagrangian  or  updated  Lagrangian  kinematics?  Do 
the  kinematics  include  small  angle  approximations? 

Incidentally,  since  this  research  considers  geometrically  nonlinear  problems,  all  theories 
considered  here  are  capable  of  solving  geometrically  nonlinear  problems.  Much  of  the 
work  in  nonlinear  beam  theory  consists  of  studies  of  circular  arches.  Arches  are  popular 
because  they  are  not  only  nonlinear,  but  they  display  limit  points  if  load  is  plotted  versus 
displacement  for  equilibrium  states  as  the  arch  becomes  unstable. 

Huddleston  (10)  does  not  include  transverse  shear  in  his  development  for  deep  cir¬ 
cular  arches.  Huddleston’s  theory  does  allow  for  stretching  of  the  midplane;  however, 
higher-order  strain  terms  are  not  included  since  he  he  derives  his  strain  from  axial  forces 
and  moments  through  constitutive  relations  rather  than  by  strain-displacement  relations. 
Finally,  Huddleston  uses  a  total  Lagrangian  approach  which  is  exact  in  the  sense  that  no 
approximations  are  used  for  trigonometric  functions  to  compute  rotation  angles.  Hud¬ 
dleston’s  theory  is  unique  among  others  discussed  here  in  that,  rather  than  use  finite 
elements  or  finite  difference  equations,  he  solves  simultaneous,  nonlinear,  first-order  dif¬ 
ferential  equations. 
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Sabir  and  Lock  (21)  also  neglect  transverse  shear  in  their  effort  to  develop  a  finite 
element  to  handle  large  deflections  of  circular  arches.  This  theory  does  allow  the  midplane 
to  stretch,  though,  not  all  higher-order  terms  are  retained.  Sabir  and  Lock  employ  total 
Lagrangian  kinematics  and  their  approach  uses  a  unique  shape  function. 

DaDeppo  and  Schmidt  have  published  numerous  articles  considering  circular  arches 
using  various  approaches  (6,  7,  5).  When  they  do  consider  transverse  shear,  DaDeppo  and 
Schmidt  allow  normals  to  the  midplane  to  rotate  but  not  warp  (5:35).  So,  their  transverse 
shear  theory  is  first-order  and  requires  shear  correction  factors.  In  addition,  DaDeppo 
and  Schmidt  have  dealt  with  inextensible  (6:990)  and  extensible  (5:37)  cases.  Though, 
in  the  latter  case,  higher-order  terms  are  neglected.  DaDeppo  and  Schmidt  use  a  total 
Lagrangian  approach  which  is  exact  (i.e.  no  trigonometric  function  approximations)  and 
they  use  a  finite  difference  approach  to  reduce  the  differential  equations  of  equilibrium  to 
algebraic  equations. 

Epstein  and  Murray  (9)  ignore  transverse  shear  in  their  formulation.  However,  they 
do  retain  all  higher  order  shear  terms  for  midplane  extensibility.  In  addition,  they  employ 
exact  total  Lagrangian  kinematics. 

Belytschko  and  Glaum  (1)  ignore  transverse  shear  and  also  allow  the  midplane  to 
stretch.  However,  not  all  higher-order  strain  terms  are  retained.  Of  interest  in  Belytschko 
and  Glaum’s  work  is  their  use  of  a  corotational,  updated  Lagrangian,  coordinate  system 
in  which  the  coordinate  system  for  each  element  is  updated  on  each  solution  increment  to 
account  for  rigid  body  motion.  Within  the  corotational  coordinates  small  angle  approxi¬ 
mations  are  used. 

More  recently,  Minguet  and  Dugundji  (12)  have  developed  a  theory  to  predict  large 
deflections  of  laminated  beams.  Minguet  and  Dugundji  assume  transverse  shear  strains  are 
constant  through-the-thickness  and  employ  an  updated  Lagrangian  elemental  coordinate 
system  which  represents  rigid  body  motion  of  the  element  exactly  via  Euler  angles.  The 
midplane  is  allowed  to  stretch  but  higher-order  terms  are  not  included. 

The  theories  discussed  above  use  various  techniques  to  solve  geometrically  nonlinear 
problems.  The  most  popular  technique  for  solving  the  nonlinear  algebraic  equations  that 
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result  from  discretization  of  a  structure  is  the  Newton-Raphson  technique.  This  iterative 
technique  uses  the  tangent  stiffness  at  a  point  on  the  equilibrium  curve  to  approximate 
a  point  further  along  the  curve  at  a  particular  load  or  displacement.  The  unknown  load 
or  displacement  at  this  intermediate  point  is  backed  out  of  the  finite  element  equilibrium 
equations,  a  new  tangent  stiffness  is  computed,  and  iteration  continues  until  the  requested 
load  or  displacement  value  is  achieved  within  a  specified  tolerance.  A  variation  is  the 
modified  Newton-Raphson  technique  in  which  the  tangent  stiffness  is  not  updated  for 
iterations  within  an  increment.  Difficulties  arise  at  limit  points  where  the  tangent  stiffness 
matrix  becomes  singular.  Near  horizontal  limit  points,  displacement  control  traverses  the 
singularities  since  a  unique  load  exists  for  each  displacement.  Likewise,  near  vertical  limit 
points  load  control  passes  limit  points  because  unique  displacements  exist  for  each  load. 
The  logical  conclusion  is  a  code  capable  of  switching  between  load  and  displacement  control 
to  traverse  any  limit  point;  Sabir  and  Lock  (21)  have  devised  just  such  a  code. 

A  more  elegant,  but  more  complex,  technique  has  been  formulated  by  Riks  (19).  Riks 
adds  a  constraint  equation  to  the  system  equations  which  prescribes  a  fixed  distance  from 
the  starting  point  about  which  a  solution  is  sought.  Incidentally,  this  fixed  distance  has 
come  to  be  referred  to  in  the  literature  as  an  “arc  length”  and  Riks’  method  is  often  referred 
to  as  an  “arc  length”  method.  However,  the  fixed  distance  prescribed  by  the  constraint 
equation  is  not  an  arc  length;  it  is  a  radius  which  describes,  in  1-D,  an  arc  along  which 
an  intersection  with  the  equilibrium  curve  is  sought.  In  this  work,  this  distance  will  be 
referred  to  as  the  search  radius.  Riks’  method  has  been  reformulated  for  finite  elements 
by  Crisfield  (4)  and  Ramm  (14). 

The  present  work  then,  reformulates  the  2-D  theory  originally  introduced  by  Dennis 
in  his  dissertation  (8)  to  handle  1-D  straight  beams  and  circular  arches  with  geometric 
nonlinearities  and  with  a  capability  to  accept  symmetric  laminates.  Reduction  of  2-D 
cylindrical  shell  theory  to  1-D  first  entailed  reconsidering  the  assumptions  of  Palazotto 
and  Dennis  (whose  theory  will  be  referred  to  by  their  acronym  “SLR”  for  Simplified  Large 
Displacement/Rotation).  By  making  beam-type  assumptions  major  simplifications  were 
made  to  the  constitutive  relations  and  strain-displacement  relationships.  In  addition  a 
new  finite  element  was  developed  along  with  a  FORTRAN  code  which  incorporates  dis- 
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placement  control  and  Riks  method  to  solve  nonlinear  problems.  Dennis’s  work  has  been 
expanded  upon  by  Smith  (22)  who  added  cubic  terms  to  the  transverse  shear  distribution 
and  additional  nonlinear  terms  to  midplane  stretching  strain.  Tsai  and  Palazotto  (23) 
broadened  the  nonlinear  scope  of  Dennis’s  code  by  incorporating  Riks  technique.  This 
work  includes  the  additional  midplane  strain  terms  of  Smith,  as  well  as  Tsai’s  adaptation 
of  Riks’  technique. 
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II.  Theory 


2.1  Constitutive  Relations 

In  reducing  the  2-D  shell  theory  of  Palazotto  and  Dennis  (13)  to  1-D  for  beams 
and  arches,  major  simplifications  are  possible  if  we  first  look  at  the  constitutive  relations. 
The  stress-strain  relations  for  a  single  orthotropic  ply  of  a  laminate  in  the  ply  material 
coordinates  are  given  by  (15) 
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where  the  contracted  notation  of  table  2.1  is  used  for  primed  and  unprimed  coordinate 
systems.  The  Qi,  ’s  are  the  plane  stress  reduced  ply  stiffnesses  in  the  material  coordinate 
system,  the  ’s  are  the  stresses  and  the  c,-;  ’s  are  the  strains.  This  development  assumes 
that  (T3,  or  the  thru-the-thickness  normal  stress,  may  be  neglected  because  a  thin  shell  (or 
beam  or  arch)  is  in  an  approximate  state  of  plane  stress.  Where  a  thin  shell  is  defined  as 
one  where  the  thickness-to-radius  of  curvature  ratio  is  less  than  1/5.  The  through-the- 
thickness  strain,  c3  is  accounted  for  by  constitutive  relations,  through  the  Q,/s,  with  the 
in-plane  strains  cL  and  c2  as  detailed  by  Palazotto  and  Dennis  (13:35).  The  Qij's  may  be 


Stress 

Strain 

contracted 

explicit 

contracted 

explicit 

0\ 

On 

e 1 

fn 

o2 

0  22 

(2 

f 22 

o3 

0  33 

£3 

£33 

04 

023 

*4 

2f23 

05 

0*13 

*5 

2^13 

<*<> 

012 

2ci2 

Table  2.1.  Contracted  Notation  Conventions 
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expressed  in  terms  of  the  engineering  constants  as 


Q 11  — 

Q  22  = 


Ex 


1  —  VuVn 

E2 


>  Qn  — 


Vi3E2 


V-2\Ei 


1  —  1/12^21 


1  —  1^12^21  1  —  ^12^21 
j  Qa  A  =  ^235  Qs5  =  Gi3,  Q66  =  G12 


(2.2) 


Here,  the  E{ ’s  are  Young’s  moduli,  the  G^  ’s  axe  shear  moduli  and  the  ’s  are  Poisson’s 
ratios. 

To  be  of  use  in  a  system  of  plies,  or  a  laminate,  the  stiffnesses  must  be  transformed 
to  laminate,  or  global,  coordinates.  The  transformations  of  the  material  Qt]'s  to  the  global 
Qij  ’s  are  taken  from  Smith  (22)  and  are  presented  in  the  Appendix.  The  relationship 
between  material  and  global  coordinates  is  shown  in  figure  2.1.  Figure  2.2  shows  the 
global  coordinates  superimposed  on  an  arch.  The  s  coordinate  direction  is  adapted  from 
the  2  direction  through  scale  factors  described  below.  The  resulting  constitutive  relations 


2-2 
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Figure  2.2.  Global  Coordinate  System  on  Arch  Element 
for  the  k,h  ply  in  global  coordinates  are  (15) 
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Now  we  simplify  these  2-D  expressions  to  1-D  by  assuming  normal  stress  in  the  1-direction, 
o i ,  is  zero  since  the  width  of  the  beam  will  be  relatively  small  in  that  direction  and  we  can 
neglect  stresses  due  to  anticlastic  curvature.  Also,  we’ll  assume  the  in-plane  shear  stress, 
<t6,  and  strain,  e6  are  zero  since  there  is  no  material  present  on  the  sides  of  the  beam  to 
exert  such  shear.  For  the  same  reasons  we  assume  <r5  =  e5  =  0.  So,  our  global  constitutive 
relations  reduce  to 
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The  1-direction  normal  strain,  cl7  is  now  dependent  on  e2.  If  we  solve  for  it  in  terms  of  c2, 
equation  2.5  reduces  to 

a2k  =  Qlktlk  (2-7) 

Qu  =  (Q 22  _ 

Sf  11 

Where  Q2t  represents  a  1-D  version  of  the  reduced  ply  stiffness  terms.  Incidentally, 
the  2  direction  has  been  retained  as  the  coordinate  along  the  beam  or  arch  since  that’s 
the  coordinate  Palazotto  and  Dennis  use  in  the  circumferential  direction  of  their  cylinder. 
Hence,  equations  can  be  compared  easily. 


2.2  Strain- Displacement  Relations 

Palazotto  and  Dennis  (13)  represent  the  strains  in  a  shell  by  Green’s  strain  tensor 
such  that  the  physical  strains  are 

<2-8> 

where  the  7 y  ’s  are  the  elements  of  Green’s  Strain  tensor  and  the  hi  ’s  are  scale  factors. 
Since  we’ve  reduced  the  order  of  the  problem,  we  need  only  two  components  of  Green’s 
strain  tensor  (20). 

_  1  .  h2u3  h2Ui 

722  —  h2u2  2  H — - — n2i 3  i — - — h,2  1 

h  3  h  1 


+KU2'2+S/i23+S/i2'1) 

+Ktt3'2-^2'3)  +\{Ul-i~Tlht'1) 

—  {h3u32  -j-  h2u2t  3  —  u2h2: 3  —  u3h32) 

1  /  U3  \  /  U3  «i  \ 

+  2  yU2,3  ~  ^~™3,2 J  ^U2,2  +  ^“^2,3  +  2,1  J 

+  2  (^U3,2  -  j^h2>; 3^  (u3,3  +  J^-h 3,2  +  -^-h31^j 

+5 


Where  the  ’s  are  the  global  displacements. 
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For  a  cylinder  and  for  an  arch,  where  s  (in  the  2  direction)  is  the  circumferential 
coordinate,  the  scale  factors  reduce  to 

hi  =  h3  =  1  h2  =  1  -  £  (2.10) 

So,  to  find  the  strains  at  a  point  we  must  first  know  the  displacements.  The  assumed 
displacement  functions  are  as  shown  in  equation  2.11.  The  functions  for  u2  and  u3  are  the 
same  as  those  of  Palazotto  and  Dennis  for  a  shell  except  for  lack  of  dependency  on  the  1 
direction.  Also,  here,  the  lateral  displacement  of  the  arch  or  beam,  ult  is  zero. 

Ui  =  u  =  0 

u2(s,z)  =  v  ^1  -  +  tp2z  +  4>2z‘  +  +  02z4  (2.11) 

u3(s)  =  w 

Where  u  ,  v  ,  and  w  are  displacements  of  the  middle  plane  of  the  beam  which  do  not  vary 
through  the  width,  b  ,  of  the  beam;  R  is  the  arch  radius  of  curvature  (infinity  for  a  straight 
beam);  ip-i  is  the  rotation  of  normals  to  the  midplane  due  to  bending;  and  <j>2  ,  72  and  d2 
are  coefficients  of  higher  order  powers  of  z  ,  the  through-the  - thickness  coordinate,  which 
are  determined  by  the  boundary  conditions  of  zero  shear  strain  on  the  top  and  bottom 
surfaces  of  the  beam.  From  equations  2.1,  2.8  and  2.10  we  have 

=  2f23  =  T"~r  (2.12) 

1  R 

Assuming  our  beam  is  thin,  in-plane  stresses  and  strains  dominate  its  behavior  when 
compared  to  the  transverse  stresses  and  strains.  So,  for  the  transverse  strains  we  include 
only  the  linear  terms  of  723  such  that 

=  JZT  U3'2  +  -  Jlj  “23  +  (2.13) 
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The  values  for  u2  and  u3  are  now  substituted  from  equation  2.11  and  equation  2.13  is 
evaluated  at  z  =  ±|  where  €4  =  0.  The  unknown  coefficients  are  then  solved  for  such  that 

A  = »  *1  =  ^  (2.14) 

Assuming  the  beam  is  thin,  i.e.  h/R  <  1/5,  the  term  h2/SR 2  <  .005.  So,  this  term  is 
neglected  and  the  approximation  for  72  is  used.  In  addition,  the  fourth  order  coefficient, 
02,  is  neglected  since  it  is,  at  most,  1/20  the  size  of  the  third  order  term,  72.  The  in  plane 
displacements  may  now  be  written  as 

«2  (s,  z)  =  v  (1  -  z/R)  +  zip 2  +  z3k  (ip2  +  u>,2)  (2.15) 

where  k  =  —  Next,  this  reduced  version  of  u2  is  substituted  into  2.13  along  with  u3 
resulting  in 

1  8z3 

t,  =  T^(“'’!  +  *)[1-4"i/',2  +  3A5flJ  (216) 

Again,  considering  order  of  magnitudes  for  h/R  <  1/5,  the  final  term  is  less  than  1/15  the 
size  of  the  next  largest;  so,  it  is  neglected.  Finally,  we  have 

(<  =  l^zfR  (w.2  +  ^2)  [!  -  4 z2/h2}  (2.17) 

Equation  2.17  explicitly  shows  the  slope  of  the  elastic  curve,  w  2,  and  rotation  due  to  bend¬ 
ing  of  sections  normal  to  the  elastic  curve,  ip2.  Figure  2.3  illustrates  the  sign  convention 
employed  in  equation  2.15  for  1P2  and  w  2  and  for  rotations  due  to  transverse  shear  (32  ■ 
In  figure  2.3,  the  quantities  ip3  and  02  are  shown  as  rotations  about  a  particular  point 
and  tu  2  is  shown  as  the  slope  of  the  tangent  to  the  elastic  curve  at  that  point.  In  both 
illustrations,  w2  is  shown  in  a  positive  sense  since  w  increases  downward  and  to  the  right 
with  respect  to  the  2  axis.  In  these  views,  02  and  fa  are  positive  in  the  counterclockwise 
direction  since  rotations  in  this  direction  would  cause  points  on  a  perpendicular  to  the 
2  -axis  in  the  z-direction  to  move  to  the  right,  which  is  a  positive  u2.  In  the  top  drawing, 
V>2  and  fa  are  both  negative.  This  sign  convention  is  reflected  in  equation  2.15  where  a 
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minus  t/>2  would  produce  motion  in  a  minus  2  direction.  In  the  bottom  drawing  of  figure 
2.3,  ip 2  is  again  negative,  however,  in  this  case  it  is  larger  in  magnitude  than  the  positive 
w  2\  so,  /?2  must  be  positive  to  rerolve  the  bending  and  shear  rotational  quantities  to  the 
physical  state  of  the  beam,  represented  by  wt2-  Mathematically,  the  relationship  between 
these  three  quantities  may  be  expressed  as 


|w>,2  +  1  =  ~02 


(2.18) 


Also  figure  2.4  shows,  for  an  initially  rectangular  beam  section,  the  relation  between  the 
tangent  to  the  elastic  curve,  w  2,  and  the  rotational  quantities  for,  first,  zero  transverse 
shear  and,  second,  for  pure  transverse  shear. 

For  derivation  of  the  strain-displacement  relationship  considering  the  in-plane  nor¬ 
mal  strains,  we  return  to  equation  2.8  such  that 


(■1  — 


722 

h\ 


(2.19) 


In  this  case,  however,  we  retain  all  the  terms  for  722  from  equation  2.9  since  these  in-plane 
strains  and  the  resulting  stresses  dominate  the  behavior  of  a  thin  beam.  Palazotto  and 
Dennis  (13),  on  the  other  hand,  eliminate  thirteen  higher  order  terms  for  their  cylindrical 
shell  representation.  These  terms,  however,  were  included  by  Smith  (22)  in  his  later  work. 
Since  we’ve  already  made  major  simplifications  and  for  the  sake  of  completeness,  these 
terms  are  retained  here.  The  in-plane  strains  are  represented  by  defining  terms  e2  and 
\2p  that  are  not  a  function  of  the  thickness  coordinate  z ,  such  that 

7 

<2  =  zP*2p  (2-20) 

p=i 

where  the  1  /h\  term  is  represented  by  the  truncated  binomial  expansion 


1 

(l-z/R)(l-z/R) 


,  2z 
l+R  + 


(2.21) 
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and 


c2  =  u,2  —  wc  -f  1/2  (v2  4-  tn22  +  v2c2  -f  w2c2J  +  vw2c  -  v2wc 
X21  =  ^2,2  -  wc2  4-  w?2 C  +  w2c3  -  c 2  (vi2w  -  VW>2)  4-  vi/>2c2  4-  V, 2^2,2  -  c  (r/j2)2w  -  ip2w>2) 

X22  =  V>2,2C  +  ~  (v»|,2  +  V’lc2)  +  V^2C3  -  2c2  (V>2,2 W  ~  faWj)  +  fa.iOflC 

-^(cV  4-  cV2)  -  c2«2  +  2c3(t)i2in  -  vw2 ) 

X23  =  A:  (10,22  +  ^2,2)  +  C02)2  +  V»2c3  +  kvA  (w,22  +  ^2,2) 

+vfcc2  (wi2  +  ^2)  -  «2fcc  (w  22  +  t/>2,2)  4-  tv2kc  (wi2  +  02)  (2.22) 

+c5n2  +  Cy2  —  2c2(c2vip2  4-  v,  2^2,2) 

X24  =  (to, 22  +  ^2,2)  +  ufcc3  (to,2  +  ^2)  4-  2fcc2  (-toto,22  -  «>V>2,2  +  w22  +  to,2V>2) 

+  A:^2,2  («>,22  +  ^2,2)  +  tj)2kc2  (to, 2  +  02)  +  V, 2kc  (to, 22  +  ^2.2) 

X25  =  2 fcc  [t/>2,2  (w,22  +  ^2,2)  +  ^2C2  (w,2  +  ^2)  -C(v,2l»,22  +  P,  2^2,2)  ~  C3(vW  2  +  1>V>2)] 

X26  =  Y  [ya2  +  2w  22^2,2  +  ^2,2  +  C2  (to2  +  220,2^2  +  $)] 

X27  =  k2C  [(to, 22  +  ^2.2)2  +  C2  (tu,2  +  t^)2] 

where  c  =  1/R  and  the  terms  neglected  in  the  prior  work  are  underlined. 

At  this  point,  it  is  useful  to  consider  how  others  handle  axial  strain.  Schmidt  and 
DaDeppo  (6),  for  instance,  represent  extensional  strain,  e  of  the  centroidal  curve  of  an  arch 
rib  as 

2e  4-  c2  =  2k(u'  cos  <f>  +  v'  sin  <j>)  +  k2(u'2  4-  t/2)  (2.23) 


where  k  is  the  arch  curvature,  u  and  v  are  horizontal  and  vertical  displacement  components 
of  a  point  on  the  centroidal  curve,  and  prime  denotes  derivative  with  respect  to  the  angle 
</>  formed  by  a  normal  to  the  undeformed  centroidal  curve  and  a  vertical  reference  line. 
Schmidt  and  DaDeppo  further  define  a  quantity  /?,  the  angle  of  rotation  of  a  tangent  to 
the  centroidal  curve,  which  is  comparable  to  our  slope  tu2. 


(3  =  arctan 


k(-u'  sin  4>  4-  t/cos  4>) 
1  +  (u'cos  <f>  +  v'  sin  <t>) 


(2.24) 
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The  most  obvious  difference  between  our  and  Schmidt  and  DaDeppo’s  e  is  their  use  of 
trigonometric  functions  to  define  angles.  This  means  that  Schmidt  and  DaDeppo  can  more 
accurately  represent  large  rotations  than  the  present  theory.  In  fact,  comparisons  will  be 
made  between  the  two  theories  for  displacements  of  a  very  deep  arch  and  the  rotational 
limits  of  the  present  theory  will  be  quantified. 

For  €4,  the  shape  factor  term  is  truncated  after  the  constant  term  such  that 


1 

1  -  z/R 


1  +  z/R  + 


R2(l-z/R) 


(2.25) 


since  for  a  shell  where  h/R  <  1/5  and  z  never  exceeds  h/2  since  it  is  measured  downward 
from  the  midplane,  the  second  term  is  at  most  10%  of  the  first  term.  So,  we  have 


*4  =  <4  +  22X42  (2.26) 

where  =  v\2  +  V>2  is  the  midplane  shear  strain,  X42  =  is  not  a  function  of  thickness 
and  &  =  -  is  a  thickness  parameter. 

2.3  Beam  Potential  Energy 

In  general,  for  an  elastic  system  the  potential  energy,  np  is 

n  p  =  U  +  V  (2.27) 

where  U  is  the  internal  strain  energy  and  V  is  the  work  done  by  external  forces.  The 
internal  strain  energy  consists  of  a  strain  energy  density  function,  W*  ,  integrated  over  the 
volume  where,  for  a  conservative  system  with  small  strains, 

W*  =  -aijki€ij€ti  (2.28) 

where  the  represents  a  constitutive  matrix.  So, 

V  =  /  WdV  (2.29) 

Jv 
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where  dV  is  an  infinitesimal  volume  element.  In  our  simplified  case,  the  strain  energy 
reduces  to 


U  =  UX+U2  (2.30) 

where, 

Ui  =  £  J^Q2keldzds  (2.31) 

U2  =  h fjQ^dzds 

Here,  b  is  the  beam  or  arch  width,  l  is  the  beam  or  arch  length  and  h  is  the  beam  or 
arch  height.  Note  that  all  the  terms  in  the  energy  expressions  are  scalars.  We  previously 
derived  c2  as  equation  2.20,  so  we  have 

4  =  (4)2  +  2  (4)  X2 Pzp  +  (X2Pzp)2  (2.32) 

where  p  =1,2, 3, 4, 5, 6, 7.  This  expression  allows  us  to  redefine  our  Ux  integral  as 

U\  =  -b  J^(Mi  +  M2  +  M3)  ds  (2.33) 

where, 

Mi  =  f  Q2k(4fdz  =  ( 4)2a 
Jh 

M2  —  I  “^Q2k4X2pZPdz  =  2€°(X2\B X22D  +  X23E -{■  X24F  +  X25G) 

Jh 

+  2e°  (X26#  +  X27I)  (2-34) 

M3  =  J  Q2k(X2pzP)2dz  =  X21X21D  4-  2X21X22^  +  (2X21X23  +  X22X2t)F 

+  2(X21  X24  +  X22X23)G  +  (2X21X25  +  2X22X2  a)H  +  2(X2lX26  +  X22X25  +  X23X2*)I 

+  (2X21X27  +  2X22X26  +  2X23X25  +  X24X24)J  +  2(X22X27  +  X23X26  +  X24X2$)h 

+  (2X23X27  +  2X24X26  +  X2bX2s)L  +  2(X24X27  +  X25X26)-P  +  (2X25X27  +  X26X26  )R 

+  2X26X27^  +  X27X27 T 
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where  the  yz,  are  strain  energy  “packets”  that  have  been  integrated  through  the  thickness 
dimension.  The  elasticity  terms  (A,  B,D,E,  F,  G,  H,  I,  J,  K,  L,  P,  R,S,T)  in  equation  2.34 
are  also  integrated  through  the  thickness  and  are  defined  as 


[A,B,D,E,F,G,  H,I,J,K,L,P,R,S,T)  = 

J  Q2k  [1,  2,  22,  23,  Z<,  Z5,  2s,  27,  Z«,  Z9,  Z10,  z",  Z12,  Z13,  Z14]  dz 


(2.35) 


Where  Q2  will  vary  through-the-thickness  for  an  anisotropic  laminate.  For  a  laminate 
that  is  symmetric  about  the  midplane  the  elasticity  terms  that  multiply  odd  powers  of  z 
(i.e.  B,  E ,  G,...,S)  are  zero.  The  present  analysis  assumes  symmetric  laminates. 

For  the  shear  strain  energy  from  equation  2.31  we  have 


(2.36) 


which  is  evaluated  similarly  to  the  above  to  yield 


AS  +  2  (ej)  XazDS  +  (x«)2  FS  ds  =  J^,ds 


(2.37) 


where  AS,  DS,  FS  are  defined  by  equation  2.35  if  QAA  is  substituted  for  Q2  for  the 
constant,  second  and  fourth  power  z  terms  and  n,  represents  a  “packet”  of  shear  strain 
energy  integrated  through  the  thickness. 


2.4  Finite  Element  Solution 

A  finite  element  solution  is  advantageous  for  our  problem  since  taking  the  first  vari¬ 
ation  of  equation  2.27  results  in  nonlinear  differential  equations  for  a  continuous  beam.  If 
we  select  discrete  nodes  on  the  beam,  though,  to  compute  our  displacements,  the  equations 
become  nonlinear  algebraic  equations.  Portions  between  the  nodes  are  our  finite  elements 
and  we  account  for  their  stiffness  through  our  volumetric  definition  of  the  strain  energy. 
Displacements  within  the  elements  are  computed  via  the  nodal  displacements  and  inter¬ 
polation  functions.  The  nonlinearity  of  the  simultaneous  algebraic  equations  is  removed 
by  using  an  incremental/iterative  approach  to  achieve  equilibrium  by  varying  the  load  or 
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the  displacement.  The  development  presented  here  is  an  overview  of  that  presented  by 
Palazotto  and  Dennis  (13).  Equation  2.27  can  be  rewritten  as 


qT 

n'  =  T 


K  +  +  W) 


q-qTR 


(2.38) 


where  q  is  a  column  vector  of  displacements  at  the  nodes,  the  bracketed  expression  is  a 
form  of  the  tangent  stiffness  matrix  and  R  is  a  column  vector  of  loads  at  the  nodes.  Note 
that  the  N:  term  in  our  tangent  stiffness  expression  is  a  linear  function  of  q  and  that 
N2  is  quadratic  in  q.  The  K  matrix  contains  constant  stiffness  terms.  The  last  term  in 
equation  2.38  is  negative  since  work  done  by  external  forces  represents  a  loss  of  potential 
energy  to  the  system.  If  we  take  the  first  variation  of  the  potential  energy  and  set  it  equal 
to  zero  we  have  a  statement  of  the  virtual  work  principal  for  an  equilibrium  configuration 
of  the  system 


snp  = 


=  0 


(2.39) 


where  the  tangent  stiffness  matrix  form  is  altered  because  it  actually  contains  linear  and 
quadratic  q  terms.  If  we  call  the  braced  expression  in  equation  2.39  F(q),  for  an  arbitrary 
displacement,  q,  we  must  have 

F(q)  =  0  (2.40) 


where  F(q)  represents  nonlinear  algebraic  equations  in  q.  These  equations  are  linearized 
by  adding  a  small  increment  A q  and  writing  a  truncated  Taylor  series  expansion  for  F(q). 


dF 

F(q  +  A  q)  =  F(q)  +  A  q  +  •  •  •  =  0 

dq 


(2.41) 


or, 

dF 

*  *  -  -f<9) 

Expanding  the  partial  differentiation,  we  obtain 


d_F_ 

dq 


d_ 

dq 


=  k  +  n1  +  n2 


(2.42) 


(2.43) 
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Substituting,  we  have 


[K  +  +  JV2]  Aq  = 


?  +  R 


(2.44) 


where 


[K  4-  Nt  +  N2\  =  Kt 


(2.45) 


K  contains  constant  stiffness  terms,  Nx  contains  stiffness  coefficients  linear  in  displace¬ 
ment  and  N2  contains  terms  quadratic  in  displacement.  Various  iteration/incrementation 
schemes  may  be  employed  to  solve  equation  2.44;  they  will  be  discussed  in  a  later  section. 
Now,  since  each  term  in  Kt  ,  the  tangent  stiffness  matrix,  is  a  7x7  matrix  which  is,  in  turn, 
a  product  of  vector  and  matrix  multiplication,  the  form  of  each  term  can  vary  through 
the  variation  and  Taylor  series  expansion  processes.  Dennis  (8)  presents  an  extensive  de¬ 
velopment  in  this  regard  where  substitutions  are  presented  for  terms  in  K,  Nx  and  N2  to 
minimize  manipulation  of  arrays  in  actual  computations. 

Recalling  from  equations  2.31,  2.33  and  2.38  that 


r 


V  = 


9=^6  J(Hi  +  Hi  +  +  )ds  (2.46) 


we  seek  stiffness  terms  such  that 


(2.47) 


where  K  ,  Nx  and  N2  are  stiffness  coefficients  as  explained  above  but  yet  to  be  adapted 
to  a  particular  element  and  d  is  the  displacement  gradient  vector, 


=  {v  v2  w  w>2  ttf  22  rp2  ^2,2}  (2.48) 

The  displacement  terms  in  d  are  exactly  those  required  for  our  strain-displacement  rela¬ 
tions  in  equations  2.22  and  2.26. 

As  shown  previously,  the  ^  expressions  are  functions  of  products  of  the  strains  which 
are,  in  turn,  products  of  terms  of  the  displacement  gradient  vector,  d.  So,  we  break  the 
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strains  up  into  linear  and  nonlinear  functions  of  d.  Starting  with  c2  as  represented  by 
equations  2.20  and  2.22 


=  Lid  +  ^<fH0d  (2.49) 

X2p  =  L^  +  Vflpd 


where  p  =1,2, 3, 4, 5, 6,7,  the  Li ’s  are  column  vectors  and  the  Hi  ’s  are  symmetric  matrices. 
The  values  in  the  Li  s  and  Hi  s  are  constants  and  are  presented  in  the  Appendix.  To 
illustrate  use  of  the  X,-  vectors  and  Hi  matrices,  consider  the  term  of  equations  2.22. 
With  all  terms  of  X0,  H0  and  d  shown,  this  appears  as 


f  «  1 


e 


o 

2 


«,2 


{0  1  -cOOOO} 


w 

w,  2  - 


(2.50) 
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Similarly,  for  e4, 


e°  =  Sid 


XA2  =  sj  d 


where  the  5,  ’s  are  column  vectors  also  presented  in  the  Appendix. 


(2.51) 
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2a 


Figure  2.5.  Beam  Finite  Element 


The  K,  Nx  and  N2  matrices  are  formed  through  the  definition  of  the  /q’s  from 
equations  2.34  and  2.37  and  are  presented  in  the  Appendix.  Finally,  the  stiffness  arrays 
are  adapted  to  a  finite  element  through  shape  functions  such  that 

K  =  bJvTKVds  Ni  =  b JvT NiDds  N2  =  bJvTN2Vds  (2.52) 

where  V  is  an  array  of  shape  functions  and  their  derivatives  as  described  below.  These 
are  the  stiffness  arrays  that  are  substituted  into  equations  2.45  and  2.44  for  solution. 

Now,  we  adapt  this  element  independent  representation  to  a  one-dimensional  beam 
-type  finite  element  as  shown  in  figure  2.5.  Note  that  we’ve  included  a  middle  node  with 
only  one  degree  of  freedom  v.  This  is  an  attempt  to  capture  all  energy  dissipated  through 
membrane  extension  due  to  beam  bending.  Initially,  this  theory  omitted  this  middle  v 
node  and  all  results  were  stiffer  than  solutions  obtained  on  Palazotto  and  Dennis’s  SLR 
program.  This  additional  degree  of  freedom  allows  a  more  exact  representation  of  the 
membrane  stretching  and  results  in  a  more  flexible  solution. 
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Since  we  have  wi2,  the  derivative  of  w  with  respect  to  the  beam  axis,  defined  at  the 
end  nodes,  we  need  continuity  of  this  derivative  between  the  elements.  So,  we  use  Hermitian 
shape  functions  to  achieve  C1  continuity  for  w  (3).  The  other  displacement  variables  v 
and  V>2  require  only  C°  continuity.  Two  nodal  values  for  rj) 2  require  linear  interpolation 
so  Lagrangian  shape  functions  are  used.  The  three  nodal  values  for  v,  however,  require 
quadratic  interpolation  functions. 

If  D  is  an  array  of  Lagrangian  shape  functions,  N<  ,  quadratic  shape  functions, 
Qi  ,  and  Hermitian  shape  functions,  Htj  ,  and  their  derivatives  with  respect  to  natural 
coordinate  77  =  s/a  (where  2 a  is  the  length  of  the  finite  element),  we  have  the  following 
relationship  between  the  displacement  gradient  vector,  d,  and  the  nodal  variables. 
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(2.53) 

where 

d(v)T  =  {*>  w  wt„ 

v.nv 

^2  ^2,-,} 

(2.54) 

and  the  ( i )  postscripts 

in  equation  2.53  are  local  element  node  numbers. 

The  shape  functions  were  derived  according  to  (3)  and  are  as  follows. 

Ni  =  \(i  -  n) 

n2  = 

K1  +  v) 

Hn 

=  i(2-3r?  +  7?3) 

h12  = 

1(1 

-ri-i f 

+  T13) 

(2.55) 

jy21  =  1(2-1-37?-  773)  ff22  =  f(— 1  — t?  +  r?2  +  r?3) 
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(2.56) 


Q\  =  \(n2  -v)  Qi=  W  +  17)  <?3  =  1  -  v2 


Finally,  the  derivatives  in  the  displacement  gradient  vector,  d,  are  transformed  to  global 
coordinates  by  the  inverse  of  the  Jacobian  matrix  ,  J  ,(T  =  J-1)  where 


d(s)  =  Td(r?)  =  TDq 


(2.57) 


and 


r  = 


1  0  0  0  0  0  0 

0  1/a  0  0  0  0  0 

0  0  1  0  0  0  0 

0  0  0  1/a  0  0  0 

0  0  0  0  1/a2  0  0 

0  0  0  0  0  1  0 

0  0  0  0  0  0  1/a 


(2.58) 


So,  the  final  shape  function  array  to  be  used  in  equation  2.52 


for  the  stiffness  arrays  is 


V  =  TD. 


2.5  Numerical  Solution  Algorithms 

All  stiffness  terms  are  now  defined  and  we  can  rewrite  equation  2.44  as  follows 


n  r  r 

E  * 

i=l  L-/' 


K  +  N.  +  N2 


Vds 


;  Aq  =  -  ^2 

k  =  l 


Vds 


q  +  R  (2.59) 


where  n  is  the  number  of  finite  elements  in  the  beam  or  arch  and  the  integration  is  over  the 
length  of  each  element,  k.  R  is  the  global  load  array  with  as  many  rows  as  total  degrees 
of  freedom  and  q  and  A q  are  global  arrays  for  displacement  assembled  from  elemental 
displacements. 

Gauss  quadrature  is  used  to  numerically  evaluate  the  integrals  in  equation  2.59. 
Taking  the  integral  on  the  left-hand  side  as  an  example  we  have 


l ‘ 


VT  K  +  Ni  +  N2  Vds 


-  />[* 


T  N\  4"  N2  V  detJ  drj 


(2.60) 


2-19 


where 


m 

i  =  l 


detJ  =  determinant  of  the  Jacobian  matrix 

=  VT  K  +  Ni  +  N2  Vdet  J ,  evaluated  at  the  Gauss  points,  t/,- 
Wi  =  a  weighting  factor. 


The  range  of  i  depends  on  the  order  of  quadrature.  According  to  (3),  order  m  quadra¬ 
ture  is  required  to  exactly  evaluate  an  integral  with  polynomials  of  degree  2m  —  1.  For 
linear  solutions  (discussed  below)  fourth  order,  or  4-point,  quadrature  gives  exact  stiffness 
integration.  This  is  because  linear  solutions  include  only  the  constant  stiffness  coefficient 
matrix,  K.  Accordingly,  the  integrand  is  a  6-degree  polynomial  because  V  and  VT  include 
cubic  polynomials.  On  the  other  hand,  nonlinear  solutions  require  7-point  quadrature 
since  the  N2  term  introduces  a  degree  6  polynomial  resulting  in  a  12-degree  polynomial 
for  the  integrand.  In  practice,  experience  with  the  code  based  on  this  work  has  shown  that 
5-point  quadrature  gives  virtually  the  same  results  as  7-point  quadrature.  Five-point 
quadrature  was  used  for  all  problems. 


In  the  Shell  code,  Dennis  (8)  includes  a  solution  algorithm  for  linear  problems.  This 
allows  comparison  with  linear  solutions  from  other  work  to  verify  the  code  and  also  provides 
the  basis  for  the  first  iteration  of  the  nonlinear  solution.  For  a  linear  solution  equation 


2.59  becomes 


/  VT  KV  detJ  drj 


q  =  R 


(2.61) 


where  the  integral  is  evaluated  numerically.  Dennis  employs  an  elimination  scheme  to 
zero-out  all  terms,  save  for  a  1  on  the  diagonal,  of  the  rows  and  columns  of  the  global 
stiffness  array  for  prescribed  degrees  of  freedom.  Solution  of  the  simultaneous  equations 
is  carried  out  by  Gaussian  elimination.  The  resulting  global  displacement  vector  is  used 
along  with  the  strain-displacement  and  constitutive  relationships  previously  developed  to 
evaluate  stresses  at  the  Gauss  points. 
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For  nonlinear  problems  two  Newton-Raphson  approaches  axe  employed.  The  first, 
displacement  control,  is  employed  by  Dennis  (8)  in  the  Shell  code.  The  second,  a  Riks- 
Wempner  algorithm  developed  by  Tsai  and  Palazotto  (23),  uses  prescribed  arc-lengths  to 
search  for  the  equilibrium  path.  These  schemes  are  necessary  to  traverse  the  limit  points 
inherent  to  unstable  structures. 

Consider  the  equilibrium  path  shown  in  figure  2.6.  The  limit  point  at  A  is  a  snap- 
through  point  where  the  structure  instantaneously  sheds  load  and  snaps  to  an  inverted 
configuration  at  C  where  it  can  again  support  increasing  load.  At  the  limit  point  A  the 
tangent  stiffness  matrix  is  singular.  However,  if  we  prescribe  displacements  which  traverse 
this  limit  point,  unique  solutions  are  available  for  each  displacement.  This  is  the  advantage 
of  the  displacement  control  technique.  At  limit  points  such  as  B  in  the  figure,  on  the 
other  hand,  displacement  control  breaks  down  since  more  than  one  solution  exists  for  a 
given  displacement.  Points  like  B  are  called  snap-back  points  and  can  be  traversed  by 
load-control  or  approaches  that  search  along  an  arc-length  to  find  the  correct  equilibrium 
path.  The  displacement  control  algorithm  used  here  is  as  presented  by  Dennis  (8)  and  the 
incremental  equation  follows. 


[K  +  Nl(qr- 1)  +  -^(tfr-l)]  A<7r- 1 


K  +  if,  («,.,)  + 


(2.62) 


Where  r  represents  an  iteration  number  within  a  prescribed  displacement  increment.  For 
the  first  iteration  of  the  first  increment  only  the  constant  K  matrix  is  employed.  This  linear 
system  is  solved  for  the  displacement  vector  which,  in  turn,  is  used  to  compute,  Nx  and  N7 
for  the  next  iteration.  It  is  important  to  realize,  for  displacement  control,  only  one  degree 
of  freedom  is  normally  fixed  and  represents  a  constraint  on  the  system  of  equations.  So, 
n  —  1  terms  in  the  vector  q  are  updated  at  each  iteration  within  a  displacement  increment 
so  the  tangent  stiffness  matrix  can  also  be  updated  at  each  iteration.  Iteration  continues 
until  convergence  for  that  increment  is  achieved.  Convergence  is  based  on  the  following 
formula. 


x  100%  <  TOL 


(2.63) 
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where  q‘,  q,r_1  and  q\  are  the  elements  of  q  for  the  rth,  (r  —  l)th  and  1st  iterations  of  the 
increment;  i  is  summed  over  the  total  number  of  degrees-of-freedom  and  TOL  is  a  user 
defined  tolerance.  Typical  values  of  TOL  are  0.01%  for  displacement  control  and  as  low 
as  0.001%  for  the  Riks  method. 

We  now  consider  the  Riks  method  to  trace  equilibrium  through  points  like  B  in 
figure.  As  implemented  here,  the  Riks  method  follows  Crisfield’s  (4)  development  and  the 
subsequent  adaptation  to  FORTRAN  code  closely  follows  the  development  of  Tsai  and 
Palazotto  (23). 

To  develop  the  Riks  algorithm  for  our  case,  we  introduce  a  scalar  loading  parameter, 
A  ,  into  our  equilibrium  equation  such  that 

F(q,  A)  =  (K  +  Y  +  x)  q  ~  XR  =  0  (2'64) 

Now  consider  an  iterative  version  of  the  same  equation  for  iterations  i  and  i  +  1. 

8F  dF 

F(qi+ 1,  Ai+1)  =  F(qu  A,)  +  —SQi  +  —6X,  =  0  (2.65) 


or 


dF  dF  .  . 

V**  +  W  ‘ =  (®’  ^ 


Substituting  ^  =  K  +  Ni  +  N2  =  Kr  and  =  —  R  we  have 


(2.66) 


KT6qi  =  f>\R  ~  F(qt ,  Aj) 


(2.67) 


Now,  since  we’ve  introduced  another  unknown,  A,  to  our  system  of  n  equations  (where  n 
=  number  of  degrees  of  freedom  in  our  finite  element  model),  we  need  one  more  equation. 
This  additional  equation  is  a  constraint  equation  which  establishes  a  constant  radius  of 
length  A/  to,  in  turn,  establish  an  arc  along  which  we  search  for  equilibrium.  Geometrically 
the  constraint  equation  amounts  to  the  Pythagorean  theorem  where 


Aqf+lAqi+i  +  AA^+1  RT  R  —  A  l2 


(2.68) 
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At  this  point,  it’s  important  to  remember  the  purpose  of  any  numerical  technique  for 
solving  nonlinear  equations.  The  purpose  is  to  establish  a  path  along  which  successive 
iterations  get  closer  and  closer  to  the  equilibrium  solution.  Equation  2.68  establishes  such 
a  path  but  so  does  an  equation  where  Al  is  any  arbitrary  fixed  value  that  is  small  enough 
not  to  miss  key  path  features.  Accordingly,  we  simplify  the  constraint  equation  to 

A  l2  =  AqJ+lAqi+x  (2.69) 

Unfortunately  even  this  simple  constraint  equation  has  the  effect  of  destroying  the  sym¬ 
metry  of  our  global  stiffness  matrix.  This  problem  is  overcome  by  returning  to  equation 
2.67  and  breaking  6q{  into  two  parts. 


Sqi  =  6qn  +  6\i6qi2  (2.70) 

where 

Sqn  =  -K^FfaXi)  (2-71) 

6qi  2  =  Kt lR  (2.72) 

If  we  also  break  the  updated  displacement  and  load  parameter  increments  into  sums  of  the 
previous  incremental  values  and  the  change  between  increments,  we  have 


Aqi+1  =  Aqi  +  6qt 


(2.73) 


AAj+1  —  A  A,  -(-  6Xi 


Now,  by  substituting  these  equations  for  Aqi+i  in  the  constraint  equation  2.69  we  get  a 
quadratic  equation  in  rfA<  such  that 

a<5A,2  +  bSXi  4-  c  =  0  (2.74) 


where 


a  =  6qf76qi2 
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b 


(2.75) 


=  26qf7(Aqi  +  6qt) 
c  =  (A qt  +  6qi)T{Aqi  +  6q{)  -  A l2 


When  the  above  system  converges,  i.e.  becomes  smaller  than  a  user-defined  convergence 
criteria,  the  total  displacement  qm  and  the  total  load  parameter  Am  for  the  mth  load  step 
are 

Qm  —  Qm—  i  "b  Aqm  Am  —  Am_i  -(-  AAm  (2.76) 

and  the  search  radius  for  an  incremental  load  step  is 

A/m  =  A/m_!-^-  (2.77) 

m  —  1 

where  N,  is  a  user-defined  number  of  iterations  and  JVm_!  is  the  number  of  iterations 
required  to  satisfy  convergence  for  step  m  —  1.  Once  we  have  A lm  for  each  load  step,  the 
initial  load  increment  or  decrement  parameter  is  found  from 


AXi 


=  ± 


AL 


VSQ&Qi  2 


(2.78) 


where  AAj  is  positive  for  a  positive  determinant  of  Kt  and  negative  for  a  negative  deter¬ 
minant.  Finally,  each  load  increment  is  begun  with  the  linear  solution 


Aq\  —  AXibq^  (2.79) 

It  is  difficult  by  an  algebraic  derivation  such  as  this  to  clearly  represent  how  an  actual 
numerical  code  for  a  Riks  type  solution  might  be  executed.  In  this  vein,  an  attempt  at  a 
clear,  step-by-step  algorithm  is  presented. 

2.6  Step-by-Step  Riks  Algorithm 
Refer  to  figure  2.7. 

1.  First  increment,  first  iteration:  compute  only  constant,#,  terms  of  Kt- 
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2.  First  iteration,  each  load  increment:  compute  Sqa  =  Kf1  R.  For  the  first  incre¬ 
ment  Kt  has  only  constant  terms;  otherwise  it  contains  the  qm-\  terms. 

3.  Each  iteration,  each  increment:  compute  A qt  =  AA ,6g,2.  On  the  first  increment 
AAj  =  A0  which  is  prescribed  by  the  user.  On  the  first  iteration  of  each  increment,  AA*  is 
AAj. 

4.  Each  iteration,  each  increment:  compute  in  order, 


6qn 

=  -K^F(qi,Xi) 

Sqi 

=  6g,i  4-  SXiSqii 

&Qi+ 1 

=  A  q,  +  6q{ 

(2.80) 


5.  Compute  A /  =  yj AqJ+lAqi+l. 

6.  Update  KT  including  q,  =  qm-i  +  A g,. 

7.  Solve  quadratic  equation  aSXj  +  bSXi  +  c  =  0  (see  equation  2.75  for  a,b,c)  for  ±6 A,-. 
If  roots  are  complex,  return  to  step  2  after  arbitrarily  adjusting  A/m  and,  consequently, 
AAj  to  avoid  complex  roots. 

8.  Choose  ±<5A,  based  on  which  yields  a  positive  9  where 


Sqi  =  i  ±  SXiSq^  (2.81) 

9  =  (A  qi  +  Sqi)Aqi 

and  if  both  6  values  are  positive,  SXi  =  -c/6. 

9.  Update  the  displacement  and  loading  parameter 

Agi+1  =  A  g,  +  <5q,  (2.82) 

AAj^.i  =  AA,'  -|-  6X{ 
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10.  Check  convergence  criteria.  If  no  convergence  return  to  step  2.  On  convergence, 
update  displacement  and  loading  parameter  for  next  increment. 

Qm  =  (2.83) 

Am  =  Am_j  +  AAm 


11.  Compute  new  search  radius  for  next  load  increment 


A/m  =  A/m_j— (2.84) 

■'’m  — 1 

where  N,  is  a  user  prescribed  iteration  estimate  and  Nm_i  is  the  number  of  iterations 
required  for  convergence  in  the  last  load  increment. 

12.  Compute  loading  parameter  for  the  next  increment,  first  iteration, 


AAi  =  ± 


(2.85) 


13.  Return  to  step  2  to  start  a  new  load  increment. 
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III.  Results  and  Discussion 


3.1  Clamped-Clamped  Shallow  Arch 

Our  first  problem  is  an  isotropic  shallow  arch  with  both  ends  clamped  and  with 
dimensions  as  shown  in  figure  3.1.  Here,  shallow  is  defined  as  an  arch  where  the  rise-to- 
span  ratio,  6/b,  is  less  than  1/4.  The  arch  is  loaded  by  a  point  load  at  the  top  center. 
This  problem  has  been  explored  by  several  previous  investigators,  however,  Belytschko 
and  Glaum  (1)  were  the  first  to  trace  the  post-buckling  response  and  comparisons  will  be 
made  with  their  work.  Our  first  comparison,  however,  is  between  the  present  code  and 
that  developed  by  Palazotto  and  Dennis  (from  here  on  referred  to  with  their  term,  SLR, 
for  simplified  large  displacement/rotation).  Results  of  the  SLR  run  along  with  results 
from  the  present  theory  are  shown  in  figure  3.2.  The  point  load  is  plotted  versus  vertical 
displacement  (down  is  positive)  of  the  central  point.  As  can  be  seen,  comparison  between 
the  present  work  and  SLR  is  excellent.  These  results  confirm  the  validity  of  the  shell-to- 
arch/beam  assumptions  made  in  the  constitutive  relations  development.  So,  for  a  shallow, 
thin  beam  the  present  theory  accurately  predicts  displacements  and  critical  loads  while 
being  much  more  compact  than  the  SLR  code. 

As  mentioned,  this  symmetrically  clamped  isotropic  arch  was  also  investigated  by 
Belytschko  and  Glaum  (1)  and  their  results  are  also  shown  in  figure  3.2.  The  results  of 
Belytschko  and  Glaum  (B&G)  are,  obviously,  initially  much  more  flexible  than  the  present 
work  and  the  SLR  solution.  B&G  used  a  higher-order  corotational  stretch  theory  to  derive 
their  curved  beam  elements.  Three  major  differences  exist  between  the  present  curved 
beam  theory  and  that  of  B&G.  First,  while  the  present  theory  uses  total  Lagrangian 
kinematics,  B&G  use  updated  Lagrangian  kinematics  where  the  element’s  corotational 
coordinate  system  rotates  through  each  solution  increment  to  track  rigid  body  motion. 
Second,  the  present  work  retains  all  nonlinear  strain  terms  from  the  Green’s  strain  tensor. 
B&G,  on  the  other  hand,  exclude  some  nonlinear  terms.  Compare  the  in-plane  strain  from 
the  present  work, 

f2  =  u,2  -  wc  4-1/2  ( v 22  +  w22  -(-  uV  +  w2c2)  -f-  vw  2c  -  u  2t vc  (3.1) 
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with  B&G’s 


where  the  *  indicates  with  respect  to  the  corotational  coordinate  system.  The  term  udzel  is 
deformation  along  the  beam  and  corresponds  to  our  v.  The  term  £  -  is  rate  of  vertical 
deformation  along  the  beam  length  and  corresponds  to  our  w  2.  The  term  uj0  accounts 
for  separation  of  the  beam  centerline  from  the  element  corotational  axis  and  has  no  cor¬ 
respondence  to  any  of  the  terms  in  equation  3.1.  Finally,  B&G  use  Euler-Bernoulli  beam 
theory  to  compute  out  of  plane  strains  so,  unlike  the  present  work,  transverse  shear  is  not 
considered. 

So,  the  present  theory  gives  initially  stiffer  results  than  the  corotational  stretch  theory 
because  more  nonlinear  in-plane  strain  terms  are  retained.  As  displacements  become  large, 
however,  the  present  theory  produces  more  flexible  results  as  the  ability  of  the  nonlinear 
strain  terms  to  capture  extensibility  of  the  midplane  becomes  dominant. 

Note  that,  for  this  problem,  twenty  increments  (seen  here  as  points  on  the  graph) 
were  necessary  to  plot  a  smooth  equilibrium  curve.  The  curves  through  the  data  points 
are  seventh  order  best-fit  polynomials  computed  and  plotted  in  MATLAB.  This  technique 
of  graphing  the  equilibrium  curve  is  useful  for  the  gentle  slopes  with  smooth  transitions 
through  limit  points.  However,  as  will  be  seen  in  later  problems,  more  complex  equilibrium 
paths  defy  polynomial  best-fits.  For  this  reason  and  since  curves  with  sharper  transitions 
require  small  load  steps  many  more  increments  were  used  on  deep  arch  problems.  This, 
of  course,  increases  processing  time  but  no  effort  was  made  to  trade  accuracy  for  shorter 
CPU  times.  It  is  popular  in  the  literature  to  report  short  processing  times;  however,  the 
nature  of  this  work  is  not  to  get  the  quickest  answer,  only  the  best  answer. 

This  clamped-clamped  shallow  arch  problem  was  also  used  to  consider  convergence 
of  the  finite  element  model.  Since  the  finite  element  uses  Hermitian  shape  functions  to 
interpolate  vertical  displacement  w  and  slope  w  2  within  each  element,  and  that  slope  is 
continuous  at  the  nodes,  our  elements  are  said  to  have  C1  continuity  (3:99-100)  for  w.  For 
the  other  degrees  of  freedom,  we  have  C°  continuity.  Cook  states  three  requirements  for 
convergence  of  a  finite  element  model  for  a  generic  field  variable  0  (3:126-127). 
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1.  Within  each  element,  the  assumed  field  for  <f>  must  contain  a  complete  polynomial  of 
degree  m,  where  m  is  the  highest  order  of  <f>  used  in  deriving  the  governing  differential 
equation  of  the  problem. 

2.  Across  boundaries  between  elements,  there  must  be  continuity  of  4>  and  its  derivatives 
through  order  m  -  1. 

3.  Finally,  if  the  elements  are  used  in  a  mesh  with  boundary  conditions  such  that  the 
mth  derivative  of  <f>  displays  a  constant  value,  then,  as  the  mesh  is  refined,  each 
element  must  come  to  display  that  constant  value. 

In  our  case,  m  is  two  and  <f>isw  and  the  first  two  conditions  are  met  since  the  Hermitian 
shape  functions  are  cubic  polynomials.  For  the  third  requirement,  no  such  test  was  per¬ 
formed.  Dennis  and  Palazotto  point  out  that  the  2-D  element  used  in  their  shell  theory 
passes  the  patch  test,  which  assures  convergence  (13:82-83).  No  simplifications  have  been 
made  to  the  interpolation  functions  in  adapting  this  theory  from  SLR  (excepting,  of  course 
2-D  to  1-D),  so  finite  element  solutions  are  expected  to  converge  to  the  correct  answer  as 
more  elements  are  added.  In  fact,  for  our  clamped-clamped  arch,  the  model  does  converge 
to  a  solution  as  the  mesh  is  refined  from  two  to  nine  elements  as  shown  in  figure  3.3. 

3.2  Cantilevered  Composite  Beam 

The  next  problem  considered  is  one  considered  by  Minguet  and  Dugundji  (12)  in 
their  investigation  by  experiment  and  analysis  of  large  deflections  for  composite  beams  re¬ 
sembling  helicopter  rotor  blades.  The  beam  analyzed  is  shown  in  figure  3.4.  Minguet  and 
Dugundji  (M&D)  formulated  an  updated  Lagrangian  displacement  scheme  based  on  Euler 
angles  which  track  the  rigid  body  motion  of  the  element  and  are  the  arguments  for  a  coor¬ 
dinate  transformation  from  local  to  global  coordinates.  This  displacement  representation 
is  exact  with  respect  to  the  rigid  body  kinematics  of  an  element  since  no  approximations  of 
trigonometric  functions  are  made.  M&D  base  their  finite-difference  solution  on  infinites¬ 
imal  beam  cross-sections  and,  as  a  result,  all  force  quantities  evaluated  at  a  section  are 
independent  of  the  thickness  dimension.  Force  equilibrium  is  enforced  at  the  nodes  as  op¬ 
posed  to  displacements  in  the  present  analysis.  So,  transverse  shear  is  constant  through  the 
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Figure  3.3.  Convergence  Test  for  Clamped-Clamped  Arch 


cross  section,  that  is,  the  theory  includes  first-order  transverse  shear.  Extensibility  is  per¬ 
mitted  in  M&D’s  analysis  and  the  axial  strain  is  coupled  with  the  shear  strains,  twist  rate 
and  bending  curvatures  through  stress-strain  relations.  While  Minguet  and  Dugundji’s 
analysis  is  considerably  different  from  the  present  analysis  in  many  respects  and  compar¬ 
isons  are  difficult,  the  experimental  data  that  is  presented  is  very  useful  to  test  the  ability 
of  the  present  theory  to  predict  laminated  beam  behavior.  The  experimental  setup  con¬ 
sisted  of  a  AS4-3501/6  graphite  epoxy  [0/90]3j  flat  cantilever  beam  with  dimensions  as 
shown  in  figure  3.4.  Composite  material  properties  were:  Ei  =  142GPa,  E2  =  9.8GPa, 
G 12  =  G13  --  6GPa,  G23  =  4.8GPa,  i/12  =  0.3,  h  =  .124mm  and  p  =  1580fc<7/m3.  A  weight 
was  applied  at  the  beam  tip,  however,  displacements  were  observed  50  mm  from  the  tip. 

In  the  present  analysis  displacement  control  was  used  with  33  elements,  a  convergence 
tolerance  ( TOL )  of  0.002,  and  5  mm  vertical  displacement  increments  at  the  tip.  Many 
elements  were  required,  in  this  case,  because  of  the  large  displacements  asked  for  in  this 
problem. 
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Deflections  measured  50  mm  from  tip 


P 


L  -  550  mm 

AS4-3501/6  graphite  epoxy  [0/90] 

Figure  3.4.  Cantilevered  Composite  Beam 


w 

iu2 

W'2  in  degrees 

KEBEHi 

%  error 

0.11 

0.353 

20.2  deg 

0.368 

0.15 

0.482 

27.6  deg 

0.523 

8 

0.20 

0.660 

37.8  deg 

0.776 

16 

Table  3.1.  Angular  Estimation  Error  for  Cantilever  Beam  Problem 


The  shape  of  the  beam  throughout  the  deflection  is  shown  in  figure  3.5.  A  comparison 
of  results  for  the  present  theory  versus  Minguet  and  Dugundji’s  is  presented  in  figure  3.6. 
The  experimental  and  analytical  results  of  M&D  were  indistinguishable  in  their  article;  so, 
only  one  line  is  shown  here.  As  can  be  seen,  the  present  theory  virtually  coincides  with 
M&D’s  results  through  vertical  displacement of  about  0.1  meters.  Part  of  the  difference 
here  is  directly  attributable  to  the  kinematics  of  the  present  theory.  The  present  work  uses 
radians  for  all  angular  measure  and  at  appreciable  angles  of  rotation,  such  as  those  in  this 
problem,  the  difference  between  the  angle  in  radians  and  the  tangent  function  of  the  angle 
becomes  significant.  M&D  follow  the  real  kinematics  more  accurately  since  they  use  an 
exact  transformation  matrix  from  elemental  to  global  coordinates.  Table  3.2  shows  how 
the  tangent  of  the  angle  differs  from  radian  measure  for  some  relevant  values.  As  the  beam 
deflects  to  0.15  meters,  the  error  is  over  20%;  angular  error,  however,  is  only  about  8%  at 
this  point.  The  remainder  of  the  error  is  due  to  higher-order  terms  in  the  in-plane  strain 
of  the  present  solution.  That  is,  in  a  nonlinear  system  such  as  this  errors  can  easily  become 
magnified  as  these  terms  become  squared  or  multiplied  with  other  terms.  This  is  especially 
true  in  a  theory  such  as  this  which  has  strain-displacement  relations  as  its  foundation.  Now 
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Beam  Vertical 


Figure  3.5.  Shape  of  Deflected  Cantilevered  Composite  Beam  Through  Six  Displacement 
Increments 
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Figure  3.6.  Cantilevered  Composite  Beam-Results 

this  theory  has  been  shown  to  accurately  represent  large  displacements  of  cylindrical  shells; 
why  the  difficulty  in  this  problem?  In  most  previous  analyses,  this  theory  has  been  used  to 
represent  structures  that,  if  not  symmetrical,  have  mass  on  either  side  of  the  applied  load 
and  the  applied  load  remains  transverse  to  the  shell  midplane.  In  these  cases  the  stretching 
is  restrained  and  that  strain  energy  is  transferred  to  bending  and  transverse  shear  modes. 
In  this  case,  however,  the  free  end  of  the  cantilever  is  not  restrained  from  stretching  and 
the  load  approaches  being  parallel  to  the  beam  at  large  deflections.  Also  consider  the  fact 
that,  since  the  rotational  terms  w2  and  rp2  are  underestimated  by  using  radians,  the  finite 
element  system  of  equations  must  shift  strain  energy  to  the  remaining  degrees  of  freedom, 
v  and  w,  to  achieve  equilibrium.  Hence,  underestimation  of  the  rotations  leads  to  more 
flexible  results  for  v  and  w.  This  is  clearly  represented  in  the  results  where  v  and  w  depart 
the  M&D  experimental/analytical  curves  at  roughly  the  same  load  level. 

So,  in  cases  where  mass  is  not  present  on  both  sides  of  the  load  and  for  rotations 
above  about  20  degrees,  the  present  theory  can  accumulate  large  displacement  errors  due 
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to  higher-order  representation  of  these  terms  in  the  strain-displacement  equations.  This 
situation  is  somewhat  ironic  since  these  higher-order  terms  are  included  to  more  exactly 
represent  these  strains.  And  the  theory  does  well  in  cases  where  the  in-plane  strains  are 
due  primarily  to  coupling  with  the  bending  and  shear  modes;  that  is,  it  is  an  excellent  arch 
theory  but  it  is  not  well  suited  to  problems  such  as  this  one  where  stretching  approaches 
bending  and  shear  as  a  primary  displacement  mode.  It  was  known  when  this  theory  was 
developed  that  the  overall  strain  field  was  incompatible  (13:36-37)in  that  we  have  nonlinear 
in-plane  strains,  linear  transverse  shear  strains,  and  zero  transverse  normal  strain.  So, 
Palazotto  and  Dennis  beefed  up  the  midplane  kinematics  to  be  very  sensitive  to  coupling 
with  other  modes,  not  to  be  the  primary  displacement  mode.  This  problem  does,  however, 
demonstrate  clearly  that  this  theory  accurately  represents  the  stiffness  of  symmetrically 
stacked  laminates. 

3.3  Cantilever  with  Tip  Moment 

The  next  problem  considered  has  been  previously  investigated  by  Epstein  and  Murray 
(9).  The  problem  consists  of  an  isotropic  cantilevered  straight  beam  subjected  to  a  tip 
moment  as  shown  in  figure  3.7.  Displacement  control  was  used  to  impose  rotations  at  the 
beam  tip.  After  tip  rotations  of  53  degrees  at  a  resulting  moment  of  14.5  lb-in,  the  solution 
stopped  producing  reasonable  results.  Moments  were  computed  based  on  the  analytical 
results  for  w  and  w  2  at  the  beam  tip  and  utilizing  the  Hermitian  shape  functions  of 
equation  2.55  to  calculate  w2 1-  Then  the  moment  is 

M  =  EIwi22  (3.3) 

where 

W, 22  =  ^  [/fn,n^(1)  +  +  #2 m„u>(2)  +  #22, (3-4) 


Figure  3.8  presents  comparisons  between  the  current  effort  and  that  of  Epstein  and 
Murray.  Results  of  the  present  work  diverge  from  those  of  Epstein  and  Murray  at  a  tip 
rotation  of  about  20  degrees,  or,  as  is  seen  more  easily  in  the  figure,  at  a  moment  of  about 
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h - H 

L  =  10  in 

E«106psi  A « 1  in2  I-lO^in 

Figure  3.7.  Cantilever  with  tip  moment 

5  lb-in.  This  is  in  agreement  with  the  previous  problem  where  the  current  results  diverged 
from  those  of  Minguet  and  Dugundji  at  20  degrees. 

Like  the  present  research,  Epstein  and  Murray  (E&M)  use  a  total  Lagrangian  ap¬ 
proach.  However,  E&M  retain  all  trigonometric  terms  in  their  vectorially  based  kinematics 
and,  as  a  result,  can  tolerate  much  larger  rotations  than  the  present  theory.  For  instance, 
E&M’s  equilibrium  equations  for  an  element  may  be  represented  as 


T  cos  <j>  +  5  sin  <f> 
-T  sin  <f>  +  5  cos  <f> 


(2e+  1  )AT 
[(2e  +  l  )M] 
V2e+1 


(3.5) 


where  S  and  T  are  x  and  z  components  of  the  external  end  force,  <f>  is  the  rotation  angle 
of  the  tangent  to  the  beam  axis,  e  is  Green’s  strain  along  the  axis,  Af  is  the  internal  force 
resultant  and  M  is  the  internal  moment  resultant. 

Figure  3.9  shows  the  shape  of  the  deflected  beam  through  solution  increments,  but 
presents  only  part  of  E&M’s  results.  In  fact,  E&M  were  able  to  bend  the  beam  into  a 
complete  circle  (9:8). 

Epstein  and  Murray  do  not  include  transverse  shear  in  their  model.  This  is  not  im¬ 
portant  in  this  problem  since,  in  order  to  duplicate  the  cross-sectional  properties  specified 
in  the  problem  a  very  thin  beam  (0.03464  inches)  was  necessary. 
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Beam  vertical  deflections  (in)  Moment  (lb-in) 


Figure  3.8.  Cantilever  with  tip  moment-Results 


Figure  3.9.  Cantilever  with  tip  moment-deflected  shapes 
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2  P 


Figure  3.10.  Hinged-Hinged  Shallow  Arch 
3-4  Hinged-Hinged  Shallow  Arch 

The  next  problem  considered  is  a  hinged-hinged  arch  previously  considered  by  Sabir 
and  Lock  (21).  The  geometry  and  material  characteristics  of  the  isotropic  arch  are  shown 
in  figure  3.10.  This  is  an  interesting  problem  in  two  respects.  First,  this  arch  displays  an 
equilibrium  path  with  both  snap-through  and  snap-back  limit  points.  So,  displacement 
control  is  of  limited  use;  Riks  technique  is  required  to  trace  the  entire  equilibrium  path. 
Second,  in  order  to  get  the  area  and  area  moment  of  inertia  specified  by  Sabir  and  Lock  and 
shown  in  figure  3.10  a  thickness  of  3.46  inches  was  required.  This  results  in  a  thickness- 
to-radius  ratio  of  1/43.  This  is  a  relatively  thick  beam  and  transverse  shear  could  become 
important. 

Riks  technique  was  used  with  the  present  analysis  with  the  following  parameters, 
A„  =  0.1,  N,  =  2.5,  M,  =  2.0  and  TOL  =  0.2 

As  the  results  indicate,  the  present  work  with  Riks  technique  follows  the  equilibrium 
path  through  four  horizontal  limit  points  and  two  vertical  limit  points.  The  labeled  points 
in  figure  3.11  correspond  to  plots  of  the  arch  deflected  shape  depicted  in  figure  3.12.  Point 
A  is  a  local  snap-through  point  and  this  action  is  apparent  in  figure  3.12  where  the  center 
portion  of  the  arch  has  reversed  curvature.  As  the  crown  of  the  arch  deflects  downward  to 
point  B,  load  shedding  takes  place.  In  fact,  as  the  equilibrium  path  descends  into  negative 
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Figure  3.11.  Hinged-Hinged  Shallow  Arch  Equilibrium  Path 

load  the  load  mechanism  must  pull  up  on  the  arch  to  achieve  equilibrium.  This  sequence 
from  A  to  B  is  dynamic  in  the  sense  that,  in  an  experimental  trial,  the  snapping  would 
occur  instantaneously.  In  the  curve  portion  from  B  to  C,  the  arch  crown  deflects  upwards 
as  the  ends  begin  reversing  curvature  and  the  arch  supports  increased  loads.  At  point  C 
the  ends  have  completely  reversed  curvature;  however,  the  crown  is  again  in  a  positive 
curvature  position.  Between  points  C  and  D  the  structure  again  sheds  load  and  the  crown 
again  reverses  curvature.  Finally,  at  point  D,  all  local  and  global  curvatures  are  reversed 
and  the  arch  is  stable  since  it  is  able  to  accept  increasing  loads  while  displacing  in  a  positive 
sense. 

Sabir  and  Lock  do  not  represent  extensibility  to  the  degree  of  the  present  work. 
Longitudinal  strains  are  represented  as 

w  1  ,  .  t;  „ . 

€y=V'y  +  R  +  2Wy  ~  ^W’vv  ~  ~R^  (3-6) 
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Figure  3.12.  Deflected  Shapes  of  Hinged- Hinged  Shallow  Arch 

This  relationship  contains  more  higher  order  terms  than  most  theories;  however,  our 
Green’s  strain  representation  includes  many  more  terms  which  are  a  function  of  the  thick¬ 
ness  coordinate,  z.  This  is  especially  important  in  this  problem  since  the  arch  is  fairly 
thick.  Indeed  the  higher  order  rotational  terms  so  prominent  in  our  €2  representation  do 
become  significant  in  this  problem.  At  point  D  in  figure  3.11  the  slope  of  the  elastic  curve, 
to  2  is  -0.159  radians  while  the  bending  rotation,  ^2  is  0.193  radians.  The  algebraic  sum, 
0.034  radians  or  1.94  degrees,  is  the  rotation  at  the  midplane  due  to  transverse  shear  strain, 
(3.  These  higher-order  rotational  terms  appear  in  our  midplane  strains  which,  in  this  case, 
are  restrained  by  the  symmetric  boundary  conditions.  The  result  is  a  stiffer  structure 
which  is  verified  by  the  results  since  the  plot  of  the  present  results  lies  above  that  of  Sabir 
and  Lock  at  large  deflections.  It  is  also  important  to  point  out,  in  general  for  nonlinear 
problems,  the  history  of  the  equilibrium  path  is  a  factor.  Once  two  solutions  diverge  for 
whatever  reason,  since  subsequent  data  points  depend  on  strain  energies  present  at  the 
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Figure  3.13.  Iterations  of  the  Riks  Algorithm 


previous  solution  step,  there  is  no  reason  to  expect  the  solutions  to  rejoin  the  same  path 
again. 

This  problem  was  also  used  to  present  a  demonstration  of  the  numerical  convergence 
characteristics  of  the  Riks  algorithm.  Figure  3.13  shows  a  close-up  of  the  same  curve 
as  in  figure  3.12  except  individual  data  points  at  each  iteration  within  seven  increments 
are  shown.  The  increment  under  inspection  begins  with  the  previous  converged  value, 
the  double  cross  just  right  of  “Start”.  The  first  iteration  produces  point  1  and  iteration 
continues  on  through  10  iterations  until  convergence  is  achieved  at  the  clustered  points 
labeled  “Finish”.  It’s  important  to  realize  that  no  neat  “search  radius”  or  arc  length  is 
apparent  here  because  we  are  seeing  a  projection  onto  one  degree  of  freedom  of  an  n  +  1 
dimensional  surface,  where  n  is  the  number  of  degrees  of  freedom.  The  search  radius,  A/, 
so  carefully  described  in  Chapter  2  does  exist  in  n+ 1  dimensional  space;  it’s  unrecognizable 
on  this  plane  though. 
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Figure  3.14.  Hinged-Clamped  Very  Deep  Arch 
3.5  Hinged-Clamped  Very  Deep  Arch 

Very  deep  arches  axe  those  where  the  subtended  angle,  a,  exceeds  180  degrees.  This 
geometry  is  particularly  challenging  for  large  displacement /large  rotation  theories  since 
large  rotations  are  required  to  reach  interesting  areas  (i.e.  limit  points)  of  the  load  versus 
displacement  curves.  The  hinged-clamped  isotropic  deep  arch  shown  in  figure  3.14  has 
been  investigated  by  Brockman  (2)  and  by  DaDeppo  and  Schmidt  (7).  The  unsymmet- 
ric  boundary  conditions  in  this  problem  represent  an  additional  challenge  for  our  theory 
since  very  large  rotations  are  possible  near  the  hinged  end  of  the  arch.  Brockman  uses 
a  3-D  finite  element  code  and  updated  Lagrangian  kinematics  to  trace  the  equilibrium 
path.  Transverse  shear  is  not  included  in  Brockman’s  solution.  DaDeppo  and  Schmidt,  on 
the  other  hand,  use  a  total  Lagrangian  formulation  which  is  exact  since  no  angle  approxi¬ 
mations  are  used.  In  this  case,  DaDeppo  and  Schmidt  assumed  an  inextensibie  midplane 
and  did  not  consider  transverse  shear.  For  this  problem,  the  Riks  approach  was  used  after 
displacement  control  failed  at  displacements  well  below  those  observed  by  Brockman  and 
DaDeppo  &  Schmidt.  Eighty  equal  length  elements  were  used  with  a  tight  convergence 
criteria  of  0.001  %.  The  estimated  number  of  iterations,  N,,  was  set  to  2.2  in  an  effort 
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Figure  3.15.  Hinged-Clamped  Very  Deep  Arch- Vertical  Displacement  versus  Load 

to  closely  follow  the  equilibrium  path.  However,  as  the  results  indicate  in  figure  3.15, 
the  present  theory  with  the  Riks  algorithm  ran  into  difficulty  well  below  displacements 
achieved  by  the  previous  investigators.  Our  theory  diverged  from  Brockman/ DaDeppo  & 
Schmidt  at  a  crown  vertical  displacement  of  17  inches.  At  this  point,  rotations  at  the 
crown  were  only  9.7  degrees;  however,  rotations  at  nodes  on  the  hinged  side  of  the  arch 
were  as  high  as  23  degrees.  This  corresponds  with  rotation  limits  of  the  present  theory  seen 
in  previous  problems.  At  a  crown  vertical  displacement  of  27  inches,  the  present  theory 
encountered  a  limit  point  which  was  not  observed  by  the  previous  investigators.  At  this 
alleged  limit  point,  rotations  at  the  arch  crown  were  16  degrees  and  a  maximum  nodal 
rotation  of  34.5  degrees  was  observed  on  the  hinged  side  of  the  arch.  The  original  shape  of 
the  arch  and  the  deflected  shape  at  the  limit  point  encountered  are  shown  in  figure  3.16. 

The  limit  point  shown  in  figure  3.15  resembles  bifurcation  points  encountered  by  Tsai 
and  Palazotto  in  their  previous  work  with  shells  using  Riks  technique  (23).  The  dip  in 
the  plot  of  the  present  results  is  not  fully  represented  in  the  figure  for  clarity.  The  curve 


3-17 


Figure  3.16.  Hinged-Clamped  Deep  Arch-Original  and  Deflected  Shapes 

actually  extends  to  a  minimum  of-900  pounds  load  before  reversing  and  terminating  at  the 
final  point  shown.  Full  representation  for  the  observations  of  Brockman  and  DaDeppo  & 
Schmidt  are  also  not  shown.  Brockman  was  able  to  follow  the  equilibrium  path,  and  en¬ 
countered  no  limit  points,  through  113.7  inches  (2:6.10.1).  DaDeppo  &  Schmidt  were  able 
to  trace  the  equilibrium  path  to  a  vertical  displacement  slightly  above  that  of  Brockman 
where  they  encountered  a  limit  point. 

This  deep  arch  problem  clearly  reveals  the  rotational  limitations  of  the  current  theory. 
The  current  solution  agreed  closely  with  other  solutions  until  rotations  in  the  arch  began 
to  exceed  23  degrees.  At  this  point  vertical  deflections  were  17  times  the  arch  thickness. 

3.6  Hinged- Hinged  Deep  Arch 

The  next  problem  considered  is  an  isotropic  deep  arch  described  in  figure  3.17.  This 
arch  has  been  investigated  by  Huddleston  (10)  and  by  Dennis  (8).  Dennis  utilized  the  SLR 
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Figure  3.17.  Hinged-Hinged  Deep  Arch 


theory  of  Dennis  &  Palazotto  and  also  looked  at  simplifications  implied  by  making  Donnell 
type  assumptions. 

The  present  theory  was  applied  with  both  displacement  control  and  Riks  technique. 
Thirty  elements  were  used  to  model  half  of  the  symmetric  arch.  Boundary  conditions  at  the 
crown  consisted  of  fixing  ip 2,  v,  and  w  2  to  zero  and  allowing  w  to  be  controlled  by  specified 
displacements  in  the  displacement  control  technique  and  free  for  the  Riks  technique.  For 
both  cases  a  convergence  tolerance  of  0.02%  was  used  and,  for  the  Riks  technique,  an  N, 
of  2.2  was  used. 

As  is  seen  from  the  results  in  figure  3.18  the  present  theory  agreed  very  well  with 
the  SLR  theory  throughout  the  extent  of  the  solution.  The  present  solution  is  slightly  less 
flexible  than  SLR  at  the  upper  tail  of  the  curve;  this  is  likely  due  to  the  inclusion  in  the 
present  theory  of  thirteen  additional  higher-order  terms  for  the  in-plane  strain  that  were 
ignored  in  SLR.  The  plot  of  the  present  theory  is  for  displacement  control;  however,  the 
Riks  algorithm  produced  an  identical  equilibrium  path. 
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Figure  3.18.  Hinged-Hinged  Deep  Arch  Results 


Dennis  and  Palazotto  explain  differences  between  the  SLR  results  and  the  Huddleston 
results  and  Donnell  assumption  results  in  their  text  (13:205:206).  Those  explanations  also 
apply  to  the  present  theory  and  they  are  reiterated  here. 

The  Huddleston  solutions  presented  include  closed-form  solutions  for  extensible  and 
inextensible  midplanes.  Huddleston  defines  extensibility  by  a  compressibility  parameter 
(10:765),  c,  which  is  a  ratio  of  bending  stiffness  to  axial  stiffness  for  an  arch. 


I 

A(2b)2 


(3.7) 


where  I  is  the  cross-sectional  area  moment  of  inertia,  A  is  the  cross-sectional  area  and, 
here,  b  is  the  horizontal  distance  from  the  center  of  curvature  to  either  of  the  supports. 
The  c  =  0  solution  presented  is  Huddleston’s  inextensible  result  and,  not  surprisingly,  it 
is  the  stiffest  of  all  solutions  considered.  The  c  =  0.01  solution  represents  the  same  arch 
geometry  but  with  the  cross-section  varied  to  decrease  axial  stiffness  and  it  is  the  most 
flexible  solution  presented.  The  cross-section  and  geometry  of  the  arch  considered  here 
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result  in  c  =  3.255x10“®  which  is  close  to  zero  so  it  is  reasonable  that  the  SLR/present 
results  closely  follow  the  inextensible  c  —  0  curve  for  smaller  displacements.  Beyond  this 
point  the  SLR/present  results  pass  a  snap-through  limit  point  and  are  much  more  flexible 
than  the  inextensible  results.  Flexibility  compared  to  the  Huddleston  inextensible  solution 
even  for  such  a  small  c  may  be  explained  by  the  fact  that  Huddleston  does  not  include 
higher-order  rotational  terms  in  his  midplane  extensibility. 

The  assumptions  used  by  Dennis  to  yield  the  Donnell  solution  result  in  elimination  of 
many  higher-order  terms  in  the  midplane  strain  relations.  So,  the  SLR/present  solutions 
are  logically  more  flexible  since,  as  deflections  increase,  the  higher-order  rotational  terms 
become  important. 

At  the  snap-through  point,  the  present  solution  resulted  in  maximum  nodal  rotations 
of  23.9  degrees.  This  value  exceeds  that  seen  to  cause  significant  error  in  previous  problems 
considered  in  this  work.  So,  some  of  the  flexibility  displayed  in  the  SLR/present  solutions 
may  be  due  to  angular  estimation  error.  The  present  solution  is  numerically  viable  through 
displacements  of  30  inches  where  the  maximum  nodal  rotation  was  47  degrees.  The  shape 
of  the  arch  in  the  initial  configuration,  at  the  snap-through  point  and  at  the  maximum 
deflection  attained  is  shown  figure  3.19.  Beyond  this  point,  displacement  control  could  not 
converge  to  a  solution  and  Riks  technique  produced  a  spurious  bifurcation  point  similar  to 
that  encountered  in  the  very  deep  arch  problem  above. 
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IV.  Conclusions 


This  effort  led  to  successful  reduction  of  the  two-dimensional  geometrically  nonlinear 
cylindrical  shell  theory  of  Dennis  and  Palazotto  to  a  one-dimensional  theory.  The  theory 
applies  to  large  displacements  and  moderate  rotations  of  isotropic  or  symmetric  lami¬ 
nate  arches  or  straight  beams.  The  theory  incorporates  all  Green’s  displacement  strain 
terms  for  the  midplane  strains  but  only  linear  displacement  terms  for  the  transverse  shear 
strains.  The  transverse  shear  strains  axe  represented  as  a  parabolic  distribution  through- 
the-thickness.  This  representation  meets  the  boundary  conditions  of  zero  strain  on  the  top 
and  bottom  surfaces  and,  hence,  avoids  shear  locking  and  obviates  the  need  for  reduced 
integration  or  shear  correction  factors.  The  theory  resulted  in  nonlinear  differential  equa¬ 
tions  which  were  converted  to  nonlinear  algebraic  equations  via  incorporation  into  a  finite 
element  scheme.  A  new  finite  element  was  developed  which  works  equally  well  for  arches 
and  straight  beams. 

A  variety  of  problems  were  run  to  explore  the  applicability  and  limitations  of  the 
theory.  All  problems  investigated,  save  the  laminated  cantilever  with  tip  moment,  were 
analytical  solutions.  No  experimental  data  exists  for  the  geometrically  nonlinear  arch 
problems  which  snap-through  and  snap-back  since  the  static  equilibrium  conditions  are 
impossible  to  generate.  So,  comparisons  were  between  various  analytical  solutions  for 
beams  and  arches. 

A  convergence  test  was  performed  for  a  shallow  arch  problem.  As  the  number  of  finite 
elements  was  increased,  the  model  converged  to  the  solution  from  above  as  is  expected  of 
a  proper  finite  element  scheme. 

Displacement  control  and  Riks  method  were  found  to  be  accurate  and  versatile  in 
tracing  nonlinear  equilibrium  paths.  Displacement  control  easily  passed  snap-through 
points  and  Riks  method  was  able  to  pass  snap-through  as  well  as  snap-back  points.  A 
plot  was  constructed  of  iterations  within  one  Riks  increment  for  a  ten  iteration  increment. 
Normally,  though,  only  two  iterations  were  required  depending  on  the  tolerance  specified. 
Also,  for  the  Riks  technique,  this  author  found  it  useful  to  vary  the  estimated  number  of 
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iterations,  N„  as  a  real  number  to  closely  control  increment  sizes  throughout  a  solution. 
Previous  investigators  had  only  used  N,  as  an  integer. 

A  cantilever  symmetric  laminate  beam  with  a  tip  load  was  investigated  and,  through 
rotations  of  twenty  degrees,  the  present  theory  accurately  predicted  experimental  results. 
An  isotropic  cantilever  was  subjected  to  a  tip  moment  and,  again,  the  current  theory 
agreed  with  other  analytical  data  through  rotations  of  twenty  degrees.  Beyond  this  limit 
the  present  solution  was  more  flexible  than  the  comparison  solutions  and  expected  actual 
beam  response. 

Several  arch  problems,  including  shallow,  deep  and  very  deep  arches  were  investigated 
and  the  current  theory  closely  agreed  with  other  analytical  results  for  all  arches  through 
rotations  of  23  degrees.  Beyond  this  limit  the  present  solution  was  more  flexible  than  the 
comparison  solutions  and  the  comparison  solutions  are  likely  more  accurate.  For  shallow 
arches,  however,  the  present  theory  is  viable  for  all  rotations. 

Comparisons  with  Huddleston’s  inextensible  and  extensible  solutions,  in  particular, 
resulted  in  close  agreement  between  the  present  solution  and  the  inextensible  at  small 
displacements.  As  displacements  became  large,  though,  the  present  solution  eventually 
intersected  the  extensible  solution. 

In  conclusion,  a  successful  one-dimensional  reduction  of  the  previous  shell  theory 
was  completed.  The  rotational  limits  of  the  SLR  shell  theory  were  explored  without  the 
interference  of  2-D  coupling.  While  exploring  these  limitations,  various  other  nonlinear 
beam/arch  theories  were  found  to  be  more  accurate  at  representing  large  rotations.  How¬ 
ever,  as  has  been  mentioned,  creating  an  exact  large  rotation  beam/arch  theory  was  not  a 
goal  of  this  research.  A  verified  FORTRAN  code  was  generated  and  utilized  to  investigate 
the  limits  of  the  theory.  The  limiting  factor  in  the  present  theory  is  the  approximation 
of  rotations  by  directly  applying  radian  measure  angles  in  the  kinematic  relations  rather 
than  using  trigonometric  functions  of  those  angles. 
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Appendix  A.  Qijt  H,  L,  S,  K,  NUN2 


Transformation  of  Qij's  to  Qij's  of  equation  2.3  for  ply  orientation  angle  9  from  the 
global  1  axis  (22): 

Qn  =  Qn  cos4  9  +  2(Qi2  +  2Qss)  sin2  9  cos2  9  +  Q22  sin4  9 
Q12  =  (Qn  +  Q22  ~  4<266)  sin2  0  cos2  9  +  Q12(sin'1d  +  cos4  6) 

Q22  =  Q11  sin4  9  +  2(QU  +  2<?66)  sin2  9  cos2  9  +  Q22  cos4  9  (A.l) 

0i6  =  (Q11  —  Q12  ~  2Qee)  sin  9  cos3  9  4-  (Qn  —  Q22  H-  “^Qes)  sin3  6  cos  9 

Q26  =  (Qn  ~  Qi2  ~  2^66)  sin  9 cos 9  +  (Q12  ~  Q22  4"  2^66) sin# cos3 9 

<?66  =  (Qn  +  Q22  ~  2<?12  -  2<366)sin20cos20  +  Q66(sin4  0cos40) 

Q44  =  Q44  cos2  9  +  Q55  sin2  9 
Q45  =  (Q44  ~  QS5)cos9sin9 
Q55  —  Q 55  cos2  9  -f-  Q44  sin2  9 

The  L  and  5  vectors  and  H  matrices  from  equations  2.49  and  2.51  follow.  In  these 
terms,  c  =  l/R  and  k  =  -^3. 

Lj  =  {0  1  -c  0  0  0  0} 

Ltx  =  {0  0  -c2  0  0  0  1} 

Ll  =  {0  -c2  0  0  0  0  c} 

L\  =  {0  0  0  0  it  0  k) 

L l  =  {0  0  0  0  ck  0  ck}  (A.2) 
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0 

0  0  0 

0 

k2 

0 

k2 

0  0  0 

Ar2c2 

0 

Ar2c 2 

0 

0  0  0 

0 

k 2 

0 

k2 
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0  0  0  0  0  0  0 

0  0  0  0  0  0  0 

0  0  0  0  0  0  0 

0  0  0  2 Pc3  0  2 k2c3  0 

0  0  0  0  2 k2c  0  2k2c 

0  0  0  2k2c3  0  2k2c3  0 

0  0  0  0  2 k2c  0  2  k2c 


Element  independent  stiffness  terms  as  desribed  in  Chapter  2: 

K  =  ALqL J  +  D(LqL2  +  L2L1Q  +  LiLj) 

-\-F(LoLa  4-  L4Lq  +  X1X3  4-  +  L2L2)  (A.4) 

+H(L2Lj  +  LaL\  4-  LaL%)  +  JL4L4  +  AS  S0S? 

+DS(S0S%  +  525g  )  +  FS  S252t 

Ni  =  A(Lo<FH0  +  (FloHo  4-  H0dLT0) 

+D(L0dTH2  4-  L2(FH0  4-  L1<fHl  +  cFL0H2  +  dFL2H0  +  dTLlHl 
+H2dLTQ  +  H0dL2  +  HxdLTx) 

+ F^LodF HA  +  LAdF Hq  L\dF H3  +  L3dF H\  +  L2(F H2  4-  dF LqHa 
+dT  LaH0  +  dF LiH3  4-  cF L3H1  +  dF L2H2  +  H+dLiQ  4*  HodL^ 

AHzdLTx  +  HxdLl  4-  H2dl%)  (A.5) 

+H(L0dFH6  4-  LxdFlU  4-  L2dTHA  +  L3(FH3  4  LacFH2  +  (FLoHe 
4 ~(F L1H5  4  dF L2HA  4"  dF L3H3  4"  dF LAH2  4-  H^dL^  4"  H$dLj 
+HAdL2  4-  H3dLl  4-  H2dLTA) 

+J(Ll(FH7  4-  L2(FH6  4-  L3dTH5  4-  LacFHa  +  dF  LXH7  4-  (FL2H6 
AdTLzH7>  4  <FLaHa  4-  H7dLTx  4  HsdLl  +  H^dLl  4-  HAdLTA) 

+L{L3(FH7  4-  LAdFHA  4  dFL3H3  +  cFL4Ha  +  H7dLTz  4-  HAdLTA) 
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N2  =  A(HQd<?H0  +  ^HodHo) 

+D(\H0d<FH2  +  \H2ddCrH0Hldd[rHl  +  ~(FH0dH2  +  -<f  H2dH0 
2  2  4  4 

A^H.dH,) 

+F(^H0dtfH4  +  ^HidtfHo  +  +  H3d(fHx  +  H2d<?  H2 

+^drH0dH<  +  it ?H<dH0  +  i  PHJlh  +  i  <F  H3dHx  +  ~  <?H2dH2) 

+E(^HoddrHi  +  i  H6d(fHQ  +  Hxd<fH3  +  H5d<fHx  +  H2d<fH< 

&  & 

+H4d(fH2  +  H3d<F  H3  4-  \(fH0dH6  +  \cFH6dH0  +  i <fHxdH5 

4  4  2 

+  ~(fff5dffx  +  ifl FH2dH<  +  l-FHAdR2  +  l-dTH3dH3) 

+J(HxdifH7  +  H7dcfHl  +  H2d(fH6  +  H6ddTH2  +  H3d<fH5 
+J?5<MTtf3  +  H4d<fH4  +  i  <fHxdH7  +  ^  H7dHx  +  i  <FH2dH6 
+  V/M#2  +  +  \dTHsdH3  + 

+Z(Jff3ddTJff7  +  H7d<fH3  +  H4ddTHs  +  H6d(fH4  +  H5d(fH3 
A~(fH3dH7  +  l-<?H7dH3  +  \(FH4dHG  +  \<fHedH4  +  l-(F  H5dH3) 
+R(Hsd(fr  H7  +  H7d(fH5  +  H6d(fH6  +  i  <F  H5dH7  +  i  (fH7dH5 
+  ^cfH6dH6) 

+T(H7ddTH7  +  i  <FH7dH7) 


(A.6) 
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Appendix  B.  FORTRAN  Program,  Description 


B.  1  Background 

Based  on  the  theory  presented  in  Chapter  2,  a  FORTRAN  code  was  developed. 
Two-dimensional  cylindrical  shell  codes  had  previously  been  developed  by  Dennis,  Tsai  and 
Smith.  Dennis  (8)  developed  a  displacement  control  algorithm  and  Tsai  and  Palazotto  (23) 
later  incorporated  the  Riks  technique.  Smith  (22)  refined  Dennis’  code  to  include  additional 
higher-order  strain  terms  and  to  provide  many  options  so  comparisons  between  theories 
were  possible.  Both  Dennis  and  Smith  generated  stiffness  matrix  terms  in  FORTRAN  code 
through  the  MACSYMA  symbolic  manipulation  program.  The  present  code  used  simplified 
versions  of  Smith’s  MACSYMA  input  files  to  generate  the  1-D  stiffness  matrices.  In  this 
way  the  higher-order  strain  terms  ignored  by  Dennis  were  captured. 

Several  of  the  subroutines  used  in  the  present  code  are  copied  from  Dennis  and  Tsai. 
Those  copied  subroutines  axe  noted  in  the  subroutine  descriptions.  In  most  cases,  however, 
the  present  code  resembles  that  of  Dennis  and  Tsai  only  in  the  numerical  solution  logic. 
Enough  simplification  was  possible  in  transformation  fron  2-D  to  1-D  that  the  present 
code,  along  with  comments,  is  much  easier  to  read  and  decipher. 

B.2  Subroutine  Descriptions 

This  listing  is  intended  to  give  the  reader  an  overview  rS  the  program.  Not  all 
subroutines  are  listed  separately.  For  instance  six  stiffness  term  subroutines  are  listed 
within  the  description  of  stiff. 

1.  beam:  This  is  the  main  program.  It  simply  calls  rinput ,  elast  and  either  proces  or 
rikspr  depending  on  whether  displacement  control  or  Riks  method  is  chosen. 

2.  rinput:  This  subroutine  reads  in  the  problem  data  and  echos  it  to  the  output  file 
in  readable  format.  It  prompts  the  user  for  input  and  output  file  names.  It  also 
computes  nodal  coordinates. 

3.  elast:  This  subroutine  integrates  the  specified  elasticity  values  through  the  beam 
thickness  for  isotropic  or  laminate  beams. 
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4.  proces:  This  subroutine  manages  solution  by  displacement  control.  It  calls  stiff, solve, converge, 
and  postpr  as  necessary.  It  assembles  the  global  stiffness  matrix,  applies  boundary 
conditions,  and  increments  displacements  for  each  increment.  This  subroutine  con¬ 
tains  the  solve  subroutine  which  solves  the  symmetric  banded  equations,  solve  is 
directly  copied  from  Dennis’  program  listing,  converge  checks  iterations  against  the 
specified  convergence  criteria;  it  is  also  copied  directly  from  Dennis. 

5.  rikspr.  This  subroutine  is  the  Riks  equivalent  of  proces.  It’s  more  complex  than  proces 
because  the  Riks  method  determining  solution  increments  is  much  more  complex  than 
displacement  control.  The  logic  of  the  Riks  solution  is  copied  from  Tsai’s  code. 

6.  stiff.  This  subroutine  computes  the  elemental  stiffness  matrices  for  each  element.  For 
an  arch,  stiff  calls  beamk  for  K,  beamnl  for  Ny  and  beamn2  for  N2.  For  a  straight 
beam, stiff  calls  sbeamk  for  K,  sbmnl  for  Ny  and  sbmnS  for  JV2.  Next  stiff  calls  shape 
to  compute  K,  Ny  and  N2.  Five-point  Gaussian  quadrature  is  used  for  integration. 

7.  shape:  This  subroutine  is  called  by  stiff  to  compute  the  shape  function  matrix  at  each 
Gauss  point.  The  shape  functions  include  relavent  terms  from  the  inverse  Jacobian 
matrix. 

8.  postpr.  This  subroutine  is  called  if  convergence  is  achieved  for  a  particular  incren- 
ment.  It  computes  the  resultant  forces  as  requested  by  the  user  for  the  converged 
displacement  values.  This  force,  along  with  nodal  displacements,  is  printed  to  the 
output  file.  It  also  generates  an  output  file  named  “plot”  which  contains  in  column 
format  the  displacement  at  the  degree  of  freedom  specified  for  force  computation, 
displacement  at  the  degree  of  freedom  two  less  than  that  specified  and  the  force  at 
the  specified  degree  of  freedom.  In  other  words,  if  degree  of  freedom  53  is  w  at  an 
arch  crown,  then  degree  of  freedom  51,  v,  appears  in  the  second  column  and  the 
vertical  load  appears  in  the  third  column.  All  this  makes  plotting  in  other  program 
such  as  MATLAB  very  easy.  If  requested,  this  subroutine  also  generatates  x,  y  coor¬ 
dinates  for  each  node  at  each  increment.  The  computation  varies  depending  whether 
we  have  a  straight  beam  or  a  full  arch  or  if  we  model  half  of  a  symmetric  arch. 


B-2 


B.3  Data  Input  Format 

Following  are  instructions  to  create  a  data  input  file  for  “BEAM”  a  FORTRAN  code 
which  handles  geometrically  nonlinear  beam  and  arch  problems.  The  instructions  present 
variable  names  from  the  program  in  the  positions  required  for  the  program  to  read  them 
correctly.  Variable  names  appear  in  italics  one  line  at  a  time.  Descriptions  of  the  variables 
appear  on  the  right.  This  is  standard  FORTRAN77  list  directed  read  format. 

1.  title:  text  string  for  problem  title 

2.  linear,  isotro,isarch,ishape  : 

(a)  linear  :  0  for  a  nonlinear  problem,  1  for  a  linear  problem. 

(b)  isotro  :  0  for  a  composite,  1  for  isotropic. 

(c)  isarch  :  0  for  a  straight  beam,  1  for  a  circular  arch. 

(d)  ishape  :  1  to  compute  x,y  coordinates  for  each  node  each  increment  for  a  straight 
beam  or  full  arch;  2  for  a  half  arch;  output  goes  to  file  named  “bshape” 

3.  inctyp,ninc,imax,kupdte,tol : 

(a)  inctyp  :  1  for  displacement  control,  2  for  Riks  method 

(b)  nine  :  number  of  displacement  or  load  (Riks)  increments  desired 

(c)  imax  :  max  number  of  iterations  for  an  increment 

(d)  kupdte  :  not  used  but  fill  with  1  or  0 

(e)  tol :  percent  convergence  desired  to  stop  iterations  in  an  increment;  best  to  use 
0.01  or  less  but  you  might  want  to  loosen  or  tighten  this  for  some  Riks  problems 

4.  pincr,eiter,ttpi :  include  this  line  only  if  inctyp=2  (Riks)  and  linear=0 

(a)  pincr  :  initial  load  parameter  (try  0.1) 

(b)  eiter  :  estimate  of  iterations  per  increment;  this  isn’t  an  integer  and  is  valuable 
to  control  increment  size 

(c)  ttpi :  max  load  increment  or  decrement  for  an  iteration;  rarely  a  factor 
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5.  table(ninc)  :  include  this  line  only  if  inctyp=l  and  linear=0  table  is  an  array  of  nine 
values  of  desired  displacements  for  displacement  control 

6.  nelem  :  number  of  elements  in  the  mesh 

7.  delem(nelem)  :  nelem  lengths,  one  for  each  element 

8.  nbndry  :  number  of  nodes  with  displacement  boundary  conditions  to  be  specified 

9.  nbound (nbndry,  5)  :  one  line  for  each  node  with  prescribed  displacements  (nbndry 
lines);  first  number  in  each  line  is  the  node  number;  note  each  element  has  3  nodes 
but  only  the  end  nodes  are  numbered  in  this  code;  i.e.  a  10  element  mesh  has  11 
nodes;  there’s  no  way  to  prescribe  a  displacement  at  a  midnode;  next  4  numbers 
on  each  line  are  l’s  or  0’s,  l=prescribed  displacement,  0=free  to  displace;  order  of 
d.o.f.’s  is  v,t/>2 ,w,w2 

10.  vbound(ii)  :  real  prescribed  displacements  for  those  d.o.f.’s  fixed  above  in  the  order 
from  above;  for  dis-  placement  control  values  that  appear  here  are  multiplied  by  the 
incremental  values  in  table  (nine)  in  successive  increments 

11.  ldtyp,distld,ldtyp  :  0  for  no  distributed  load  distld:  intensity  of  distributed  load  Note: 
As  of  3lNov92  this  option  is  not  available  but  this  line  is  still  necessary 

12.  ndload  :  skip  if  Idtyp— 0;  number  of  elements  with  dist.  load 

13.  idload(ndload)  :  skip  if  ldtyp= 0;  numbers  of  elements  with  dist.  loading 

14.  nconc  :  number  of  concentrated  loads  (and  moments);  must  have  at  least  1  for  Riks 
technique,  0  if  no  cone,  loads 

15.  iconc(nconc)  :  skip  if  nconc= 0;  d.o.f.  numbers  for  concentrated  loads;  here  the 
middle  nodes  count;  there  are  9-d.o.f.’s  per  element,  in  order:  v(l),  ^>2(1),  w(l), 
w2(l),  v(3),  v(2),  V>2(2),  w(2),  iu2(2) 

16.  vconc(nconc)  :  skip  if  nconc= 0;  values  of  loads  at  each  d.o.f.  listed  above 

17.  ey,nu,ht, width  :  include  for  isotropic  material(isotro=l); 

(a)  ey  :  Young’s  modulus, 

(b)  nu  :  Poisson’s  ratio, 
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(c)  ht :  thickness, 

(d)  width  :  width 

18.  el, e2,gl2,nul2,gl3,g23, width  :  include  for  composite(isotro=0); 

(a)  el  :  Young’s  modulus  along  fibers 

(b)  e2  :  Young’s  modulus  transverse  to  fibers 

(c)  gl2  :  shear  modulus 

(d)  nul2  :  Poisson’s  ratio 

(e)  gl3  :  1-3  shear  modulus 

(f)  g23  :  2-3  shear  modulus 

(g)  width  :  width 

19.  nplies,pthick  :  include  for  composite(isotro=0) 

(a)  nplies  :  number  of  plies 

(b)  pthick  :  ply  thickness  (one  number, same  for  all  plies) 

20.  theta(nplies)  :  include  for  composite(isotro=0);ply  orientation  angles  in  degrees 

21.  rad  :  include  if  isarch=l;  arch  radius  of  curvature 

22.  nforc  :  number  of  nodal  resultant  forces  to  calculate 

23.  iforc(nforc)  :  include  if  nforce  >  0;  nforce  d.o.f.  numbers  of  locations  for  force 
calculations 

24.  nstres :  number  of  elements  where  stress  is  to  be  calculated  as  of  31  NOV92  not  used 
but  code  needs  a  zero  here 

25.  istres(nstres)  :  skip  if  nstres=0  nstres  element  numbers  for  stress  calcs 
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Appendix  C.  FORTRAN  Code 


program  beam 
c 

c  See  bottom  of  file  for  variable  and  subroutine  listing, 
c 

implicit  double  precision  (a-h,o-z) 
character*64  gname 
c 
c 

common/chac/gname , f name 
c 

common/elas/ae,de,f e,he, ej ,el,re,te,as ,ds ,f s 
common/input/tol, table (250) ,delem(250) ,vbound(2500) .distld, 

.  vconc(2500) ,ey ,anu,ht ,el ,e2,gl2,enul2,enu21 ,gl3,g23,pthick, 

rad , 1 inear , isotro , isarch , ishape , inctyp , nine , imax , 

.  nelem.nbndry ,nbound(250,5) ,ldtyp,nconc, iconc(25G0) , 

.  nplies,nforc,iforc(2500) .nstres ,istres(250) ,ibndry(2500) , 

.  theta(20) ,idload(250) ,coord(261) .width, nnod.pincr ,eiter,ttpi 
c 

common/stf /stif (9,9) ,elp(9) ,eln(9,9) ,eld(9) 
c 

common/proc/gstif (2500,9) ,gn(2500,9) ,gf (2500) ,gd(2500) ,vperm(2500) , 

.  vpres(2500) 

c 

call  rinput 
call  elast 

if (inctyp. eq. 1) call  proces 
if (inctyp. eq.2)call  rikspr 

c 

c  VARIABLES  FOR  BSHELL 

c 

c  fname  input  file 
c  gname  output  file 
c  ae,de,  elasticity  terms 
c  fe,he,  elasticity  terms 
c  ej,el,  elasticity  ter^s 
c  re,te,  elasticity  te. 
c  as.ds,  elasticity  terms 
c  fs  elasticity  term 

c  ey  Young’s  modulus  for  isotropic  case 
c  enu  Poisson’s  ratio  for  isotropic  case 
c  ht  thickness  of  beam  for  isotropic  case 
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c  el,e2,  laminate  material  properties 
c  gl2,enul2,  " 
c  enu21,gl3,  " 
c  g23  11 

c  pthick  laminate  ply  thickness 
c  nplies  number  of  plies  in  laminate 
c  theta(20)  ply  orientation  angles 
c  tol  convergence  tolerance,  percent 
c  table(250)  displacement  increment  multiplicative 
c  factors 

c  delem(250)  element  lengths 

c  vbound(2500)  values  of  prescribed  displacement  boundary 
c  conditions 

c  distld  distributed  load  intensity 
c  vconc(2500)  concentrated  load  values 
c  rad  arch  radius  of  curvature 

c  linear  =1  for  linear  analysis,  =0  for  nonlinear 
c  isotro  =1  for  isotropic,  =0  for  laminate 
c  isarch  =1  for  arch,  =0  for  straight  beam 

c  ishape  =1  to  print  x,y  coordinates  for  each  node  at  each  increment 
c  when  a  full  arch  is  represented  output  to  file  ’bshape’ 
c  inclod  =1  to  increment  load(NA) ,  =0  increment  displacement 
c  nine  total  number  of  displacement  increments 
c  imax  maximum  number  of  iterations  per  increment 
c  nelem  total  number  of  elements  in  model 

c  nbndry  number  of  nodes  with  specified  boundary  conditions 
c  nbound(250 ,5)  array  of  node  numbers  followed  by  l’s  for 
c  fixed  b.c.’s,  zeros  for  unfixed 

c  ldtyp  =1  for  distributed  load,  =0  no  distributed  load 
c  nconc  total  number  of  concentrated  loads  input 
c  iconc(2500)  DOF’s  for  specified  loads 

c  nforc  number  of  forces (including  moments)to  be  solved  for 
c  if ore (2500)  DOF’s  at  which  to  calculate  forces 
c  nstres  number  of  elements  for  stress  calculation 
c  istres(250)  element  #’s  for  stress  calculation 
c  ibndry(2500)  DOF  numbers  for  b.c.’s 
c  idload(250)  elements  with  distributed  load 
c  coord(251)  coordinate  of  the  nodes 
c  width  beam  or  arch  width 
c  nnod  number  of  nodes 

c***************************  **  ***#  *********************************  *********** 

c 

c  SUBROUTINES  FOR  BSHELL 
c 

c  r input  reads  in  and  echos  input  data 
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c  elast  computes  elasticity  terms 

c  proces  drives  the  solution  algorithm  for  displacement  control 
c  rikspr  drives  the  solution  algorithm  for  Riks  method 
c  stiff  manages  stiffness  matrix  computations 
c  shape  computes  shape  function  array  dsf 
c  beamk  computes  constant  stiffness  array  bmk 
c  beamnl  computes  linear  stiffness  array  bmnl 
c  beamn2  computes  quadratic  stiffness  array  bmn2 
c  sbeamk  computed  constant  stiffness  array  for  straight  beams 
c  sbmnl  computes  linear  stiffness  array  for  straight  beams 
c  sbmn2  computes  quadratic  stiffness  array  for  straight  beams 
c  bndy  applies  displacement  boundary  conditions 
c  solve  solves  simultaneous  equations  in  banded  array  format 
c  converge  checks  solutions  for  convergence 
c  postpr  computes  nodal  loads  and  sends  to  output  file 
c 
c 

end 

c 

c 

c 

subroutine  r input 
c 

character*64  fname.gname 

character*4  title 

dimension  title(20) 

implicit  double  precision  (a-h.o-z) 

c 

common/ chac/gname ,f name 

common/input/tol,table(250) ,delem(250) ,vbound(2500) ,distld, 

.  vconc(2500) ,ey ,enu,ht ,el ,e2,gl2,enul2,enu21 ,gl3,g23,pthick, 

rad, linear , isotro , isarch , ishape , inctyp ,ninc , imax , 

.  nelem,nbndry,nbound(250,5) ,ldtyp,nconc ,iconc(2500) , 

.  nplies,nforc,iforc(2500) ,nstres,istres(250) , ibndry(2500) , 

.  theta(20) ,idload(250) ,coord(251) , width, nnod,pincr,eiter ,ttpi 
c 

write(* , 1000) 

read(* , 1005)fname 

write(* , 1010) 

read(* , 1005)gname 

open(5 ,f ile=fname) 

open(6 , f ile=gnarae , status= ’new ’ ) 

read(5, 1015)title 

read (5 ,*) linear , isotro , isarch , ishape 
read(5 ,*) inctyp ,ninc , imax ,kupdte ,tol 


if (linear . eq . 0 . and . inctyp . eq . 2) read (5 , * )pincr , eiter , ttpi 
if (linear . eq . 0 . and . inctyp . eq . 1) read(5 , *) (table ( i) , i=l .nine) 
read(5,*)nelem 

read(5,*) (delem(i) ,i=l,nelem) 
c 

c  calculate  nodal  coordinates 
c 

nnod=nelem+l 
coord(l)=0.0 
do  5  ii=2,nnod 

5  coord(ii)=coord(ii-l)+delem(ii-l) 
read(5,*)nbndry 
do  10  i=l,nbndry 

10  read(5,*) (nbound(i, j) , j=l,5) 

ifdof=0 
c 

c  ifdof=counter  for  enumber  of  fixed  dof’s 
c 

do  20  i=l ,nbndry 
do  20  j=2,5 

if (nbound(i, j) .eq.0)goto  20 
ifdof=ifdof+l 

ibndry(ifdof )=(nboimd(i,l)-l)*5  +  (j-i) 

20  continue 

read(5,*) (vbound(i) ,i=l ,ifdof ) 

read (5 , * ) ldtyp , distld 

if  (ldtyp.eq.  Dread (5 ,*)ndload 

if (ldtyp.eq. l)read(5,*) (idload(i) ,i=l,ndload) 

read(5,*)nconc 

if (nconc.ne.0)read(5,*) (iconc(i) ,i=l,nconc) 
if (nconc.ne.0)read(5,*) (vconc(i) ,i=l,nconc) 
if (isotro.eq. Dread (5,*) ey,enu,ht, width 
if (isotro.eq.0)read(5,*)el,e2,gl2,enul2,gl3,g23,width 
if (isotro.eq. 0)read(5, *)nplies .pthick 
if (isotro.eq. 0)read(5,*) (theta(i) ,i=l .nplies) 
if (isarch.eq. l)read(5,*)rad 
read(5,*)nforc 

if (nforc.ne.0)read(5,*) (iforc(i) ,i=l ,nforc) 
read(5,*)nstres 

if (nstres .ne.0)read(5,*) (istres(i) ,i=l,nstres) 
c 

c  Echo  the  input  to  the  output  file 
c 

write (6, 1015) title 
if (isarch .eq. l)write(6, 1020) 
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if ( isarch . eq . 0) write (6 , 1025) 
if (linear. eq. 1) write (6 ,1030) 
if (linear. eq.0)write(6, 1035) 
if (isotro.eq. l)write(6, 1040) 
if ( isotro . eq . 0) wr ite (6 , 1045) 
if ( ishape . eq . 1 ) wr ite (6 , 1050) 
if (inctyp . eq. 1) write (6 , 1060) 
if (inctyp . eq . 2) write (6 , 1055) 
wr it e (6 , 1 065 ) nine 
write (6 , 1070) imax 
write (6 , 1075) tol 

if ( inctyp . eq . 2) write (6 , 1076) pincr , eiter , ttpi 
if (inctyp. eq. 1) write (6, 1078) 

if (inctyp. eq. 1) write (6, 1080) (table (i) ,i=l,ninc) 

write(6,1085)nelem 

write(6, 1090) 

write(6 , 1095) (coord(i) , i=l ,nnod) 

write(6,1100) 

write(6,1105) 

do  30  i=l,nbndry 

30  write(6,1110) (nbound(i, j) , j=l,5) 
write(6,1115)ifdof 
write(6,1120) (ibndry(i) ,i=l,ifdof) 
write (6, 1095)  (vbound(i)  ,i=l,ifdof) 
if (ldtyp.eq. l)write(6,1125)distld 
if (ldtyp.eq. l)write(6, 1130) (idload(i) ,i=l .ndload) 
if (nconc.ne.0) write (6 ,1135) 

if (nconc . ne . 0 ) wr it e ( 6 , 1 120) ( iconc ( i ) , i* 1 , nconc ) 

if (nconc .ne . 0)write(6 , 1095) (vconc(i) , i=l , nconc) 

if (isotro.eq. 1) write (6, 1140) ey,enu,ht, width 

if (isotro. eq.0)write(6, 1145) el, e2,gl2,enul2, gl3,g23, width 

if ( isotro . eq . 0) write (6,1150) nplies , pthick 

if (isotro. eq.0)write(6, 1155) (theta(i) ,i=l .nplies) 

if ( isarch . eq . 1) write (6,1160) rad 

write (6 ,1165) (iforc(i) , i=l ,nf ore) 

write(6,1170) (istres(i) ,i=l,nstres) 

close(5) 

c  close(6) 

c 

c 

cFORMATS 

c 

1000  format ( ’Enter  your  input  file  name.’) 

1005  format (A) 

1010  format( ’Enter  your  output  file  name.’) 
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1015  format (20a4) 

1020  format(/, lx,’ Element  type:  arch’) 

1025  formatC/, lx,’ Element  type:  straight  beam’) 

1030  format(/, lx, ’Analysis  type:  linear*) 

1035  formate/ , lx, ’Analysis  type:  nonlinear’) 

1040  formate/, lx, ’Material  type:  isotropic’) 

1045  formate/, lx, ’Material  type:  laminate’) 

1050  formate/, lx, ’Printout  of  nodal  x,y  coordinates  requested’) 

1055  formate/,lx,’Riks  method  specified’) 

1060  formate/, lx, ’Displacement  control  method  specified’) 

1065  formate/, lx, ’Increments  specif ied: * ,2x,i3) 

1070  formate/, lx, ’Maximum  iterations  specif ied: ’ , 2x,i3) 

1075  formate/, lx, ’Percent  convergence  tolerance: ’ ,2x,dl2. 5) 

1076  formate/,lx,’pincr=’ ,2x,dl2.5,2x, ’eiter=’ ,2x,dl2.5,2x, 

’ttpi=’ ,2x,dl2.5) 

1078  formate/, lx, ’Displacement  Increment  Table’) 

1080  format  e8  e2x ,dl2 . 5) ) 

1085  formate/, lx, ’Number  of  elements: ’ ,2x,i3) 

1090  formate/ , lx, ’Nodal  Coordinates:’) 

1095  format e8e2x ,dl2.5)) 

1100  formate/ , lx , ’ DISPLACEMEMT  BOUNDARY  CONDITIONS,  1=PRESCRIBED , 
X0=FREE’ ) 

1105  formate/ ,4X , ’NODE  V  PSI-S  W  W-S  ’) 

1110  formate4x,i4,lx,4ei3,2x)) 

1115  formate/, lx, ’NUMBER  OF  PRESCRIBED  DISPLACEMENTS:’, 

.  i5,/, lx, ’SPECIFIED  DISPLACEMENT  DOF  AND  THIER 

.  VALUES  FOLLOW: ’) 

1120  formatei6i5) 

1125  formate/, lx, ’Distributed  Load  Intensity :’ ,2x,dl2. 5) 

1130  formate/, lx, ’Elements  with  distributed  load: ’ ,/,lx,16i5) 

1135  formate/, lx, ’DOF  and  specified  concentrated  loadsfollow: ’) 

1140  formate/, lx, ’Isotropic  material  properties  ey,  enu,  ht,  width:’ 
.  ,/,lx,4dl2.5) 

1145  formate/, lx, ’Composite  material  properties  el,  e2,  gl2,  enul2, 

.  gl3,g23,  width: ’ ,/,lx,7dl2.5) 

1150  formate/, lx, ’Number  of  plies :’ ,2x,i3,2x, ’Ply  thickness: ’ ,2x, 

.  dl2.5) 

1155  formate/, lx, ’Ply  orientation  angles: ’ ,/,lx,8e2x,dl2.5)) 

1160  formate/, lx, ’Radius  of  curvature: ’ ,2x,dl2. 5) 

1165  formate/, lx, ’DOFs  for  equivalent  load  calculation:’,/, 

.  lx, 16i5) 

1170  formate/, lx, ’Elements  for  stress  calculation: ’,/, lx, 16i5) 

1175  formate/, lx, i5) 
return 
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end 

c 

c 

c 

subroutine  elast 
c 

implicit  double  precision  (a-h,o-z) 
c 

dimension  qbar(3,3) ,rtheta(20) 

c 

c 

character*64  gname 
common/ chac/gname , f name 

common/ elas/ae,de,fe, he, ej ,el,re ,te,as ,ds,fs 
conmion/input/tol,table(250) ,delem(250) ,vbound(2500) .distld, 

.  vconc(2500) ,ey ,enu,ht ,el ,e2,gl2,enul2,enu21 ,gl3,g23,pthick, 

.  rad .linear , isotro , isarch , ishape , inctyp .nine , imax , 

.  nelem,nbndry,nbound(250,5) ,ldtyp,nconc,iconc(2500) , 

.  nplies,nforc,iforc(2500) .nstres , istres(250) ,ibndry(2500) , 

.  theta(20) ,idload(250) ,coord(251) .width, nnod,pincr,eiter,ttpi 
c 
c 

c  Isotropic  case 
c 

c  write (6, 1000) el ,e2>gl2>enul2lenu21 ,gl3,g23,pthick 
if (isotro. eq.0)goto  100 
gs=ey/ (2* ( 1+enu) ) 

denom=l . -enu**2 
qll=ey/denom 
ql2=enu*ey/denom 
q22=qll 

q2hat=q22- (ql2**2/ql 1 ) 

qs4=gs 

ae=q2hat*ht 

de=q2hat*ht**3/ (3*2 . **2) 
f e=q2hat*ht**5/ (5*2 . **4) 
he=q2hat*ht**7/(7*2.**6) 
e j  =q2hat*ht**9/ (9*2 . **8) 
el=q2hat*ht**ll/(ll*2.**10) 
re=q2hat*ht**13/(13*2.**12) 
te=q2hat*ht**15/(15*2.**14) 
as=qs4*ht 

ds«qs4*ht**3/ (3*2. **2) 
f s=qs4*ht**5/ (5*2 . **4) 
goto  200 
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c 

c  Laminate  case 
c 

100  ht=pthick*nplies 

enu21=e2*enul2/el 
denom-1 .-enul2*enu21 
qll=el/denon 
ql2=enul2*e2/denom 
q22=e2/denom 
c 

c******* *********** ****** ******* ******************* 


c  calculate  the  elasticity  matrices  * 

c  * 

c  reman  that  the  z  axis  points  down,  * 

c  however,  the  first  ply  is  the  top  ply,  ie,  * 

c  the  ply  with  the  most  negative  z  ! ! !  * 


c************************************************** 

c 

c  initialize  elasticity  terms 
c 

ae=0. 

de=0 . 
f  e=0 . 
he=0 . 
ej=0. 
el=0 . 
re=0 . 
te=0. 
as=0. 
ds=0. 
f  s=0. 

do  45  ii=l,nplies 

45  rtheta(ii)=theta(ii)*3. 14159265/180. 
do  50  kk=l,nplies 

qbar(l , l)=qll*(cos(rtheta(kk))**4)+2*ql2*(sin(rtheta(kk))**2)* 
.  (cos(rtheta(kk))**2)+q22*(sin(rtheta(kk))**4) 
qbar(l ,2)=(qll+q22)*(sin(rtheta(kk))**2)*(cos(rtheta(kk))**2)+ 
.  ql2*(sin(rtheta(kk))**4+cos(rtheta(kk))**4) 
qbar(2,2)=qll*(sin(rtheta(kk))**4)+2*ql2*(sin(rtheta(kk))**2)* 
(cos (rtheta(kk) ) **2)+q22*cos (rtheta(kk) )**4 
qs4=gl3*dcos(rtheta(kk))**2+g23*dsin(rtheta(kk))**2 
q2hat=qbar(2,2)-(qbar(l ,2)**2/qbar(l ,1) ) 
zl=(kk*l.  -  nplies* .5)*pthick 
zu=zl-pthick 
ae=ae  +  q2hat*pthick 
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de=de  +  q2hat*(zl**3-zu**3)/3. 

fe=fe  +  q2hat*(zl**5-zu**5)/S. 
ha=he  +  q2hat*(zl**7-zu**7)/7. 
ej=ej  +  q2hat*(zl**9-zu**9)/9. 
al=el  +  q2hat*(zl**ll-zu**ll)/U. 
re=re  +  q2hat*(zl**13-zu**13)/13. 
ta=te  +  q2hat*(zl**15-zu**15)/15. 
as=as+qs4*pthick 

ds=ds+qs4* (zl**3-zu**3) /3 . 
f s=f s+qs4* (zl**5-zu**5) /5 . 

50  continue 

c  200  open (6, f iel=gnaae ,status=’old’ ) 

200  write (6 , 1000) ae , de , f a ,he , a j , el , re , t e , as , ds , f s 
c  close(6) 

1000  format(/, lx, ’Elasticity  terms: ’ ,/,lx,8(2x,dl2.5)) 
return 

end 

c 

c 

c 

subroutine  proces 
c 

implicit  double  precision  (a-h,o-z) 
c 

character*64  gnarae 

c 

c 

common/ chac/gname ,f name 

c 

common/ el as /ae ,de ,f e ,he ,ej ,el,re ,te ,as ,ds ,f s 

c 

common/ input/tol ,table(250) ,delem(250) ,vbound(2500) ,distld, 

.  vconc (2500 ) , ey , enu ,ht,el,e2,gl2, enu 12 , enu2 1 , g 1 3 , g23 , pthick , 
rad .linear , isotro , isarch , ishape , inctyp , nine , imax , 

.  nelem,nbndry,nbound(250,5) ,ldtyp,nconc,iconc(2500) , 

nplies,nforc,iforc(2500) ,nstres,istres(250) ,ibndry(2500) , 

.  theta(20) ,idload(250) ,coord(251) , width, nnod.pincr .eiter.ttpi 
common/stf/stif (9,9) ,elp(9) ,eln(9,9) ,eld(9) 
c 

common/proc/gst if (2500,9) ,gn(2500,9) ,gf (2500) ,gd(2500) ,vperm(2500) , 
vpres(2500) 
c 

ndof=nnod*4+nelem 
ncount=l 
i count =1 
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do  1  ii=l,ndof 

1  gd(ii)=0.0d0 
do  2  ii=l ,nbndry*5 
vpres(ii)=O.OdO 

2  vperm(ii)=vbound(ii) 
c 

c  start  new  increment  or  iteration/ 
c  zero  out  global  stiffness  matrices  and  global  force 
c  vector 
c 

3  do  5  ii=l,ndof 
gf (ii)=0.0d0 

do  5  j j=l ,9 
gstif (ii, j j)=O.OdO 
5  gn(ii, j j)=0.0d0 
kcall=0 
c 

c  increment  prescribed  displacement  for  displacement  control 

c 

if (linear. eq.l) goto  9 
if (icount.ne. l)goto  9 
do  7  ii=l ,nbndry*5 

if (ncount. eq.l)vbound(ii)=vperm(ii)*table(l) 

7  if (ncount . gt . 1 ) vbound ( i i ) =vperm (ii)*(table (ncount ) - 
.  table(ncount-l)) 

c 

c  loop  over  all  elements  for  stiffness  and  forces 

c 

9  do  30  ielem=l,nelem 
do  10  ii=l,9 

10  eld(ii)=gd(ii+(ielem-l)*5) 
c 

kcall=kcall+l 

call  stiff (ielem.icount, ncount ,kcall) 
c 

c  Assemble  global  stiffness  array,  gstif,  global  equilibrium 
c  stiffness,  gn,  in  banded  form.  Half-bandwidth=9.  Also 
c  assemble  global  force  vector,  gf . 
c 

nr=(ielem-l)*5  +  1 
do  30  jj=0,8 

gf (nr+j j ) =gf (nr+j j)+elp(jj+l) 
do  30  kk=l,9-jj 

gstif (nr+j j ,kk)=gstif (nr+jj ,kk)+stif ( j j+1 ,kk+j j' 
if (linear. eq. 1) goto  30 
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if (icount .eq. 1  .and.  ncount .eq. l)goto  30 
gn(nr+jj ,kk)=gn(nr+j j ,kk)+eln(j j+l,kk+jj) 

30  continue 
c 

c  impose  force  boundary  conditions 
c  at  this  point,  gf=R 
c 

if (nconc.eq.O)goto  45 
do  40  ii=l,nconc 
nb=iconc(ii) 

40  gf (nb)=gf (nb)+vconc(ii) 

45  continue 
c 

c  calculate  the  residual  force  vector  for  nonlinear 
c  analysis.  - [gn] *{gd}+R=- [k+nl/2+n2/3] *{q}+R=gf 
c 

if (icount.eq.l)goto  65 
do  60  ii=l,ndof 
add=0 . 

do  50  kk=l,ii-l 
if(ii-kk+l  .gt.  9) goto  50 
add=add+gn (kk , i i -kk+ l)*gd (kk) 

50  continue 
res=0. 

do  55  j j-1 ,9 

if(jj+ii-l  .gt.  ndof)goto  55 
res=res  +  gn(ii, j j)*gd(j j+ii-1) 

55  continue 
c 

c  add  to  existing  gf  which  already  contains  R 
c 

gf (ii)=gf (ii)-res-add 
60  continue 
65  continue 
c 

c  impose  displacement  boundary  conditions 
c 

if ( icount . eq . 1 ) call  bndy (ndof , gst if , gf , nbndry , ibndry , vbound) 
if (icount . gt . 1 ) call  bndy (ndof , gst if , gf , nbndry , ibndry , vpres ) 
c 

c  solve  system  of  equations,  result  in  gf 
c 

call  solve(ndof ,gstif ,gf ,0,detm,detml) 
c 

c  update  total  displacement  vector  gd 
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c 


do  70  ii=l,ndof 

70  gd(ii)=gd(ii)+gf (ii) 
if (linear. eq. l)goto  80 
call  converge (ndof ,ncon, icount ,tol , imax) 
c 

c  if  no  convergence  (ncon=0)  start  next  iteration 
c 

if (neon. eq.O) goto  3 
80  continue 

if(ncon.eq.l  .and.  ncount.le. nine) then 
call  postpr (icount ,ncount ,kcall ,ndof ) 
if (ncount . eq . nine) stop 
ncount=ncount+ 1 
icount =1 
goto  3 
endif 
return 
end 
c 

subrout  ine  bndy  (ndof ,  s ,  s  1 ,  ndum ,  idu* ,  vdujn) 
c 

c  . 

c  subroutine  used  to  impose  boundary  conditions  on  banded  equations 

c  . 

c 

implicit  double  precision  (a-h,o-z) 

dimension  s(2500,9) ,sl(2500) 

dimension  idum(ndura*5) , vdum(ndum*5) 

do  300  nb  =  1 ,  ndum* 5 

ie  =  idum(nb) 

sval  =  vdum(nb) 

it=8 

i=ie-9 

do  100  ii=l,it 
i=i+l 

if  (i  .It.  1)  go  to  100 
j=ie-i+l 

sl(i)=sl(i)-s(i , j)*sval 
s(i, j)=0.0 
100  continue 
s(ie,l)=1.0 
sl(ie)=sval 
i=ie 

do  200  ii=2,9 


C-12 


i*i+l 

if  (i  .gt.  ndof)  go  to  200 
sl(i)=sl(i)-s(ie,ii)*sval 
s(ie,ii)=0.0 
200  continue 
300  continue 
return 
end 
c 
c 
c 
c 

subroutine  converge (ndof ,ncon , icount , tol , imax) 


c  checks  for  convergnece  using  global  displacement  criterion 


implicit  double  precision  (a-h,o-z) 
common/proc/gstif (2500,9) ,gn(2500,9) ,gf (2500) ,gd(2500) ,vperm(2500) , 
vpres(2500) 

c 

rcurr=0 , 
do  10  m=l,ndof 

10  rcurr=rcurr  +  gd(m)*gd(m) 
if (icount. eq. l)rinit=rcurr 
if (icount. eq. l)ncon=0 
if (icount. eq. l)goto  20 
c  new  criteria 

ratio=100.  *  abs(sqrt(rcurr)-sqrt(pvalue))/sqrt(rinit) 
if (ratio. le.tol)ncon=l 
20  pvalue=rcurr 

write (* , 100) neon .ratio , r init , rcurr 
100  foraat(lx, ’ncon=  ’ ,i3,3x, ’ratio*  ’,dl4.6,’  rinit=  ’,dl4.6, 
x  ’  rcurr=  ’,dl4.6) 

if ( i count . eq . imax) write(6,200) 
if (icount .eq. imax) stop 
200  format( lx, ’icount  equals  imax’) 
if (ncon.eq.0)icount=icount+l 
return 
end 
c 
c 
c 

subroutine  rikspr 
c 

implicit  double  precision  (a-h,o-z) 
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c 

character *64  gnaae 

c 

c 

common/ chac/gname , f name 
c 

common/elas/aa,de,fe,he,ej , al,re,ta,as ,ds ,f s 
c 

common/ input/tol, table (250) ,delem(250) , vbound(2500) .distld, 

.  vconc (2500) , ay , anu , ht , a 1 , e2 , g 12 , enu 1 2 , enu2 1 , g 13 , g23 , pthick , 
rad .linear , isotro , isarch , ishape , inctyp .nine , imax , 
nelem,nbndry,nbound(250,5) ,ldtyp,nconc,iconc(2500) , 

.  nplies,nforc,iforc(2500) .nstres ,istres(250) ,ibndry(2500) , 

.  theta(20) ,idload(250) ,coord(251) , width, nnod.pincr .eiter ,ttpi 
common/ stf /stif (9,9) ,elp(9) ,eln(9,9) ,eld(9) 
c 

common/proc/gstif (2500,9) ,gn(2500,9) ,gf (2500) ,gd(2500) ,vperm(2500) , 

.  vpres(2500) 

c 

dimension  gld(2500) ,gld0(2500) ,gldl(2500) ,gdis(2500) ,gsti00(2500,9)  , 
gf0(2500) ,gd00(2500) 
ndof=nnod*4+nelem 
ncount=l 
icount=l 
iicut=0 

do  1  ii=l,ndof 

1  gd(ii)=0.0d0 
do  2  ii=l ,nbndry*5 
vpres(ii)=0.0d0 

2  vperm(ii)*vbound(ii) 
c 

c  start  new  increment  or  iteration/ 

c  zero  out  global  stiffness  matrices  and  global  force 
c  vector 
c 

tpincr=0 .0 

if (ncount.eq. l)goto  2993 
c 

c  start  new  increment 
c 

3  if (iicut . eq.0)dss=dss*eiter/icount 
2993  icount=l 

do  2992  ii=l,ndof 
gld0(ii)=0.0d0 
2992  gd00(ii)=gd(ii) 
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c 

c  start  new  iteration 
c 

4  do  5  ii=l,ndof 
gfO(ii)=O.OdO 

do  5  j j=l  ,9 
gstif (ii, j j)=0.0d0 

5  gn(ii, j j)=O.OdO 
kcall=0 

c 

c  increment  prescribed  displacement  for  displacement  control 
c 

c  if (linear .eq. 1) goto  9 
c  if (i count .ne . l)goto  9 
c  do  7  ii=l ,nbndry*5 

c  if (ncount . eq . 1 .and. iicut . eq.O) vbound(ii)=vperm(ii)*table(l) 
c  7  if (ncount .gt. 1 .or. iicut .gt .O)vbound(ii)=vperm(ii)*(table(ncount)- 
c  .  table (ncount- 1) ) 
c 

c  loop  over  all  elements  for  stiffness  and  forces 
c 

9  do  30  ielem=l ,nelem 
do  10  ii=l,9 

10  eld(ii)=gd(ii+(ielera-l)*5) 
c 

kcall=kcall+l 

call  stiff (ielem, icount .ncount ,kcall) 
c 

c  Assemble  global  stiffness  array,  gstif,  global  equilibrium 
c  stiffness,  gn,  in  banded  form.  Half-bandwidth=9 .  Also 
c  assemble  global  force  vector,  gf. 
c 

nr=(ielem-l)*5  +  1 
do  30  jj=0,8 

gf 0 (nr+ j  j ) =gf 0 (nr+j j ) +elp ( j  j +1 ) 
do  30  kk=l,9-jj 

gstif (nr+j j ,kk)=gstif (nr+j j ,kk)+stif ( j j+1 ,kk+j j ) 
if ( 1 inear . eq . 1 ) goto  30 

if (icount .eq. 1  .and.  ncount. eq.l  . and. iicut .eq.O) goto  30 
gn(nr+j j ,kk)=gn(nr+j j ,kk)+eln(j j+1 ,kk+j j) 

30  continue 
c 

c  impose  force  boundary  conditions 
c  at  this  point,  gf=R 
c 
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if (nconc.eq.O)goto  45 
do  40  ii=l,nconc 
nb=iconc(ii) 

40  gfO(nb)=gfO(nb)+vconc(ii) 

45  continue 
do  47  ii=l,ndof 

47  gf (ii)=gf0(ii) 
do  48  ii=l,ndof 

do  48  jj=l,9 

48  gsti00(ii , j j )=gstif (ii, j j ) 

call  bndy(ndof ,gstif ,gf , nbndry , ibndry , vbound) 
c 

call  solve (ndof ,gstif ,gf ,0,detm,detml) 

dss0=0.0 

do  49  ii=l,ndof 

gdis(ii)=gf (ii) 

49  dss0=dss0+gf (ii)*gf (ii) 
if (icount.ne.i)  go  to  144 

detml=detm2 

detm2=detm 

if (ncount.eq. 1. and. detm.lt. 0.0  .and.iicut.eq.O)  pincr=-pincr 
if (ncount . eq . 1 . and . iicut . eq . 0)  dss=pincr*dsqrt (dssO) 
if (ncount.ne.l.or.iicut.gt.O)  pincr=  ds8/dsqrt(dss0)*detm*detml 
.  *pincrl/dabs(pincrl) 

c 

c  attempt  at  offloading  at  bifurcation  points 
c 

c  if (iicut .eq. l)pincr=-pincr 
c 

pincrl=pincr 

prs=0.0 

do  142  ii=l,ndof 

142  prs=prs+gf0(ii)*gld(ii) 
s t if pa=p incr*prs 

do  143  ii=l,ndof 

143  gld(ii)=pincr*gdis(ii) 

144  continue 
c 

c  calculate  the  residual  force  vector  for  nonlinear 
c  analysis.  -[gn]*{gd}+R=-[k+nl/2+n2/3]*{q}+R=gf 
c 

if (i count. eq.l) goto  69 
do  60  ii=l,ndof 
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add=0 . 

do  50  kk=l,ii-l 
if(ii-kk+l  .gt.  9)goto  50 
add=add+gpi  (kk , i i-kk+ 1 )  *gd (kk ) 

50  continue 
res=0. 

do  55  jj=l,9 

if(jj+ii-l  .gt.  ndof)goto  55 
res=res  +  gn(ii, jj)*gd(j j+ii-1) 

55  continue 
c 

c  add  to  existing  gf  which  already  contains  R 
c 

gf (ii)=gfO(ii)*(pincr+tpincr)-res-add 
60  continue 
65  continue 
c 

c  impose  displacement  boundary  conditions 
c 

call  bndy (ndof , gstiOO ,gf .nbndry , ibndry , vbound) 

c  if (icount.gt.l)call  bndy (ndof ,gst if ,gf .nbndry .ibndry, vpres) 

c 

c  solve  system  of  equations,  result  in  gf 
c 

call  solve  (ndof  ,gstif  ,gf ,  1  ,detm,  detail) 
c 

c  through  line  69  copied  from  Tsai’s  program 
c 

al=dss0 
a2=0 .0 
a3=0 . 0 

do  147  ii=l,ndof 
a2=a2+(gld(ii)+gf (ii))*gdis(ii) 

147  a3=a3+gf ( i i ) * (2 . 0*gld ( i i ) +gf ( i i ) ) 
dl2=a2*a2-al*a3 
c  write(6,*)  dl2,al,a2,a3 
c 
c 

if (dl2 . It . 0 . 0) then 
c 

c  deal  with  complex  roots  by  cutting  the  search 
c  radius  (dss)  in  half 
c 

do  2991  ii=l,ndof 
2991  gd(ii)=gd00(ii) 
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iicut=iicut  +  1 
if (iicut . gt . 10) than 
write (6, 3000) 
stop 
endif 

ds3=dss/2.0 
goto  3 
endif 

iicut=0 

dpincl=(-a2+dsqrt(dl2))/al 

dpinc2= (-a2-dsqrt (dl2) ) /al 

thetal=0.0 

theta2=0 . 0 

do  148  ii=l,ndof 

gldO(ii)=gld(ii) 

gld(ii)=gld(ii)+gf (ii)+dpincl*gdis(ii) 
gldl ( i i ) =gld0 ( i i ) +gf ( ii ) +dpinc2*gdis ( i i ) 
thetal=thetal+gldO(ii)*gld(ii) 
theta2=theta2+gld0 ( ii ) *gld 1 ( i i ) 

148  continue 

c  write(6,*)  thetal ,theta2 

thetl2=thetal*theta2 
if (thetl2.gt .0.0)  go  to  149 
dpincr=dpincl 

if (theta2.gt .0.0)  call  chsign(gld,gldl .dpincr ,dpinc2,ndof ) 
go  to  150 

149  dpib=-a3/(a2*2.0) 
dpinl=dabs(dpib-dpincl) 
dpin2=dabs (dpib-dpinc2) 
dpincr=dpincl 

if (dpin2.lt. dpinl)  call  chsignCgld, gldl, dpincr, dpinc2,ndof) 

150  pincr=pincr+dpincr 

69  continue 
c 

c  update  total  displacement  vector  gd 
c 

do  70  ii=l,ndof 

70  gd(ii)=gd(ii)+gld(ii)-gldO(ii) 
if (linear. eq. l)goto  80 

call  converge (ndof ,ncon, icount ,tol , imax) 
c 

c  if  no  convergence  (ncon*0)  start  next  iteration 
c 

if (neon. eq.0) goto  4 
80  continue 
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if(ncon.eq.l  .and.  ncount .la. nine) then 
call  postpr (icount .ncount .kcall ,ndof ) 
if (ncount .eq. nine) stop 
ncount=ncount+l 
tpincr=tpincr+pincr 
goto  3 
endif 

3000  format (lx, ’Mora  than  10  consecutive  imaginary  roots’) 
3010  format(/,lx,i2) 
return 
end 
c 
c 
c 

subrout ine  solve (ndof .band , rhs , ires , data , detml ) 

c  . 

c  solve  a  banded  symmetric  system  of  equations 

c  . 

c 

implicit  double  precision  (a-h,o-z) 
dimension  band(2500,9) ,rhs(2500) 
meqns=ndof-l 
if (ires .gt .0) goto  90 
do  500  npiv=l,meqns 
c  print* , ’npiv=  ’ ,npiv 

npivot=npiv+l 
lstsub=npi v+9- 1 

if (lstsub.gt .ndof )  lstsub=ndof 
do  400  nrow=npivot .lstsub 
c  invert  rows  and  columns  for  row  factor 
ncol=nrow-npiv+l 

f actor=band(npiv ,ncol)/band(npiv ,1) 
do  200  ncol=nrow, lstsub 
icol=ncol-nrow+l 
j  col=ncol-npiv+l 

200  band (nrow , icol ) =band (nrow , icol ) -factor *bauid (npiv , j  col ) 
400  rhs (nrow) =rhs (nrow) -factor*rhs (npiv) 

500  continue 
detm=l .0 
detml=0.0 
do  600  ii=l,ndof 

detml=detml+dloglO(dabs (band( ii , 1 ) ) ) 

600  detm=detm*band ( i i , 1 ) /dabs (band ( i i , 1 ) ) 
go  to  101 

90  do  100  npiv=l,meqns 
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npivot=npiv+l 

lstsub=npiv+9-l 

if (lstsub.gt .ndof )  lstsub=ndof 

do  110  nrow=npivot,lstsub 

ncol=nrow-npiv+l 

f actor=band(npiv ,ncol)/band(npiv , 1) 

1 10  rhs (nrow) =rhs (nrow) -f actor*rhs (npiv) 

100  continue 
c  back  substitution 
101  do  800  ijk=2,ndof 
npiv=ndof-ijk+2 

rhs (npiv) =rhs (npiv) /band (npiv , 1) 

lstsub=npiv-9+l 

if (lstsub.lt. 1)  lstsub=l 

npivot=npiv-l 

do  700  jki=lstsub,npivot 

nrow=npivot-jki+lstsub 

ncol=npiv-nrow+l 

f  act or=b and (nrow , ncol ) 

700  rhs (nrow) =rhs (nrow) -f actor*rhs (npiv) 

800  continue 

rhs(l)=rhs(l)/band(l,l) 

return 

end 

c 

c 

c 

subroutine  chsign(gld,gldl ,dpincr,dpinc2,ndof ) 
implicit  double  precision  (a-h,o-z) 
dimension  gld(2500) ,gldl(2500) 
do  100  i=l,ndof 
100  gld(i)=gldl(i) 
dpincr=dpinc2 
return 
end 
c 
c 
c 

subroutine  stiff (ielem, icount ,ncount ,kcall) 
c 

implicit  double  precision  (a-h,o-z) 
character*64  gname 
common/chac/gname ,fname 
c 

common/input/tol ,table(250) ,delem(250) ,vbound(2500) ,distld. 
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.  vconc(2500) ,ey,enu,ht ,ei ,e2,gl2,enul2,enu21 ,gl3,g23 .pthick, 

.  rad , linear , isotro , isarch , ishape , inctyp .nine ,  imax , 

.  nelem.nbndry ,nbound(250,5) ,ldtyp,nconc,iconc(2500) , 

.  nplies,nforc,iforc(2500)  .nstres  ,istres(250)  ,ibndry(2500)  , 

.  theta(20) f idload(250) ,coord(251) .width, nnod,pincr,eiter,ttpi 
c 

common/ el as /ae ,de ,f e .he , e j , el ,re ,te , as , ds ,f s 
c 

coBBon/stf/stif (9,9) ,elp(9) ,eln(9,9) ,eld(9) 
c 

common/shp/ dsf  (7,9) 
c 

dimension  bmk(7 ,7) ,bmnl(7,7) ,bmn2(7,7) , 

,  gauss4(4) ,wt4(4) ,gauss7(7) ,wt7(7) ,q(7) ,dsftr(9,7) , 

.  pkt(7,7)  ,pkn(7,7)  ,pktd(7,9)  ,pknd(7,9)  ,gauss5(5)  ,wt5(5) 
c 

data  gauss4/0 . 861 13631 lSdO , 0 . 33998 10435d0 , -0 . 3399810435d0 , 

-0. 86113631 15d0/ 

data  wt4/0 . 347854845 ldO ,0 . 6521451548d0 ,0 . 6521451548d0 , 

0. 347854845 ldO/ 

data  gauss5/0 . 9061798459d0 , 0 . 5384693101d0 , 0 .  OdO ,  -0 . 5384693101d0 , 
-0.906l798459d0/ 

data  wt5/0 .2369268851d0 ,0 .4786286705d0,0.5688888889d0, 

0 . 4786286705d0 , 0 . 236926885 ldO/ 
data  gauss7/0.9491079123d0,0.7415311856d0,0.4058451513d0, 

0 .  OdO ,  -0 . 405845 15 13d0 , -0 . 741531 1856d0 , -0 . 9491079123d0/ 
data  wt7/0 . 1294849662d0 , 0 . 27970539 15d0 ,0.38 18300505d0 , 

0 . 417959 1836d0 ,0 . 3818300505d0 ,0 . 2797053915d0 ,0. 1294849662d0/ 
c 

c  initialize  stiffness  arrays  and  load  array 
c 

do  10  ii=l,9 
elp(ii)=0.0 
do  10  jj=l,9 
stif (ii, j j)*0.0 

10  eln(ii, j j)=0.0 
c 

c  set  number  of  gauss  points  for  interpolation 
c 

ngp=5 

if (ncount . eq . 1  .and.  i count. eq. l)ngp=4 
if ( 1 inear . eq . 1 ) ngp=4 
c 

ekl=-4./(3.*ht**2) 
pl=l ./rad 
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if (ncount.eq.l  .and.  icount.eq.l  .and.  kcall.eq.l  .and.  isarch.eq. 1) 
.  call  beaak(bmk,ekl ,pl) 

if (ncount . eq . 1  .and.  icount.eq.l  .and.  kcall.eq.l  .and.  isarch.eq.O) 
.  call  sbeamk(bmk,ekl) 

c 

c  loop  over  gauss  points 
c 

do  100  ii=l,ngp 
if (ngp . eq . 4) et a=gauss4 ( ii) 
if (ngp.eq.5)eta=gauss5(ii) 
if (ngp . eq . 7) eta=gauss7 ( i i) 
call  shape(eta,ielem,aa) 
c 

c  multiply  element  displacement  vector,  eld  (this  is  *q’ 
c  in  the  thesis)  by  the  shape  function  matrix,  dsf,  to  get 
c  the  displacement  gradient  vector(d(s)  in  thesis,  q  here) 
c 

do  20  kk=l ,7 
20  q(kk)=0.0 
c 

do  30  jj=l,7 
do  30  kk=l,9 

30  q(jj)=q(j j)+dsf (jj ,kk)*eld(kk) 
c 
c 

c  initialize  bmnl,  bmn2 
c 

do  35  kk=l,7 
do  35  j j=l ,7 
bmnl(j j ,kk)=0.0d0 
35  bmn2(j j ,kk)=0.0d0 
c 

c  skip  bmnl  and  bmn2  comps  first  time  through 
c 

if(icount  .eq.  1  .and.  ncount  .eq.  l)goto  37 
c 

if (isarch.eq. l)call  beamnl (q.bmnl , ekl ,pl) 
if (isarch.eq. l)call  beamn2(q,bmn2,ekl ,pl) 
if (isarch.eq.O) call  sbmnl(q, bmnl , ekl) 
if (isarch.eq.O) call  sbmn2(q,bmn2,ekl) 

37  continue 
c 

c  transpose  the  shape  function  matrix 
c 

do  40  j j=l ,7 
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do  40  kk=l ,9 

40  dsftr(kk, j j)=dsf (j j ,kk) 
c 

c  create  element  independent  incremental  stiffness  array, 
c  pkt,  and  element  ind.  equilibrium  stiffness  array,  pkn 
c 

do  50  jj=l,7 
do  50  kk=l ,7 

pkt(j j ,kk)=bmk(j j ,kk)+bmni(j j ,kk)+ban2(jj ,kk) 

50  pkn(j  j  ,kk)=bmk(j  j  ,kk)+bHinl(j  j  ,kk)/2.+bmn2(j  j  ,kk)/3. 
c 

c  post-multiply  each  array  by  the  shape  function  matrix 
c 

do  60  jj=l,7 
do  60  kk=l ,9 
pktd(j j ,kk)=0.0 
pknd(j j ,kk)=0.0 
do  60  11=1,7 

pktd(j j ,kk)=pktd(j j ,kk)  +  aa*pkt(j j ,ll)*dsf (ll,kk) 

60  pknd(j j ,kk)=pknd(j j ,kk)  +  aa*pkn( j j ,ll)*dsf (11 ,kk) 
c 

c  Finally,  pre-multiply  these  new  arrays  by  the  transpose 
c  of  the  shape  function  matrix  to  get  the  element  incremental 
c  stiffness,  stif,  and  element  equilibrium  stiffness,  eln. 
c  Also  multiply  by  the  weighting  factor  for  this  particular 
c  gauss  point.  Note  that  these  arrays  are  zeroed  outside  the 
c  loop  over  the  gauss  points  since  they  accumulate  (integrate) 
c  data  over  all  the  gauss  points, 
c 

if (ngp.eq.4)wt=wt4(ii) 
if (ngp . eq . 5) wt=wt5 ( i i ) 
if (ngp . eq . 7 ) wt=wt7 ( i i ) 
do  70  jj=l,9 
do  70  kk=l ,9 
do  70  11=1,7 

stif (j j ,kk)=stif (j j ,kk)+wt*width*dsftr(j j ,ll)*pktd(ll,kk) 

70  eln(jj ,kk)=eln(jj ,kk)+wt*width*dsftr(j j ,ll)*pknd(ll,kk) 
100  continue 
c  write(6,1010)ielem 
c  write(6,1005) 
c  do  900  ii=l,9 

c  900  write(6,1000)  (stif (ii, j j) , j j=l ,9) 

1000  format (9(2x , dl2 . 5) ) 

1005  format (/, ’stif ') 

1010  format(i4) 
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return 

end 

c 

c 

c 

subroutine  shape(eta, ielem.aa) 
c 

implicit  double  precision  (a-h,o-z) 

c 

c 

common/ shp/dsf (7 ,9) 

c 

c 

common/ input/tol, table (250) ,delea(250) ,vbound(2500) .distld, 

.  vconc (2500 ) , ey , enu , ht , e 1 , e2 , g 1 2 , enu 12 , enu2 1 , g 1 3 , g23 , pthick , 

.  rad .linear , isotro , isarch , ishape , inctyp ,ninc , imax , 

.  nelem,nbndry,nbound(250,5) ,ldtyp,nconc,iconc(2500) , 

.  nplies,nforc,iforc(2S00) ,nstres,istres(250) ,ibndry(2500) , 
theta(20) ,idload(250) ,coord(251) , width, nnod,pincr,eiter,ttpi 
c 

c  initialize  shape  function  matrix 
c 

do  10  ii=l  ,7 
do  10  j j=l ,9 

10  dsf (ii, jj)=0.0 
c 

aa=(coord(ielem+l)-coord(ielem))*0.o 

c 

c  enter  values  into  dsf 
c  these  include  jacobian  terms 
c 
c 

c  Q1,Q3,Q2  and  derivatives 
c 

dsf (1 , l)=0.5*(eta**2-eta) 

dsf (1 ,5)=1 .0-eta**2 

dsf (1 ,6)=0 .5*(eta**2+eta) 

dsf (2,l)=(eta-0.5)/aa 

dsf (2,5)=-2.0*eta/aa 

dsf (2,6)=(eta+0.5)/aa 

dsf (3 , 3)=0 . 25* (2 . 0-3 . 0*eta+eta**3) 

dsf (3,4)=0.25*aa*(l .0-eta-eta**2+eta**3) 

dsf (3 , 8)=0 . 25* (2 .0+3 . 0*eta-eta**3) 

dsf (3 , 9) =0 . 25*aa* (- 1 . 0-eta+eta**2+eta**3) 

dsf (4 ,3) =0 . 25* (-3 . 0+3 . 0*eta**2) /aa 
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dsf (4 ,4) *0 . 25* (-1.0-2. 0*eta+3 . 0*eta**2) 

dsf (4 ,8)=0 . 25* (3 . 0-3 . 0*eta**2) /aa 

dsf (4 , 9) *0 . 25* ( - 1 . 0+2 . 0*eta+3 . 0*et a**2 ) 

dsf (5 ,3)=0 .25*6 . 0*eta/aa**2 

dsf (5,4)=0.25*(-2.0+6.0*eta)/aa 

dsf (5 ,8)=-0 . 25*6 . 0*eta/aa**2 

dsf (5 , 9) *0 . 25* (2 . 0+6 . 0*eta) /aa 

dsf  (6 ,2)*!0 .5* (1 .0-eta) 

dsf (6,7)=0.5*(1 .0+eta) 

dsf (7,2) *-0 . 5/aa 

dsf (7,7)=0.5/aa 

c 

c  temporary  print 
c 

c  do  100  ii=l,7 

c  100  write(6, 1000)  (dsf (ii , j j ) , j j=l ,9) 

c  1000  format  (9(2x,dl2.5) ) 

return 

end 

c 

c 

c 

subroutine  postpr(icount .ncount ,kcall ,ndof ) 
c 

implicit  double  precision  (a-h,o-z) 
c 

character*64  gname 

c 

c 

conanon/chac/  gname ,  f  name 
c 

common/elas/ae,de,fe,he,ej ,el ,re ,te ,as ,ds ,f s 
c 

common/ input/tol .table (250) ,delem(250) ,vbound(2500) .distld, 

.  vconc (2500) ,ey ,enu,ht ,el te2,gl2,enul2,enu21 ,gl3,g23,pthick, 

.  rad , 1 inear , isotro , isarch , ishape , inctyp , nine , imax , 

.  nelem,nbndry,nbound(250,5) ,ldtyp,nconc,iconc(2500) , 

.  nplies.nforc, iforc(2500) .nstres , istres (250) .ibndry (2500) , 
theta(20) ,idload(250) ,coord(251) , width, nnod,pincr,eiter,ttpi 
c 

common/stf /stif (9,9) ,elp(9) ,eln(9,9) ,eld(9) 
c 

coramon/proc/gst if (2500,9) ,gn(2500,9) ,gf (2500) ,gd(2500) ,vperm(2500) , 
vpres(2500) 
c 
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disunion  wforc(2500) ,xcoord(251) ,ycoord(251) 
pi*3. 14159 
c 

r  if  ishape®l  print  global  x,y  coords  to  file  bshape 
c  if  ishape®2  figure  out  symmetric  coords  as  well 
c 

if ( ishape . eq . 1 . or . ishape . eq . 2 . and . ncount . eq . 1 . and . isar ch . eq . 1 ) then 
open (8, file®’ bshape ’ , status® ’ new ’ ) 
do  1  ii*l,nnod 
if ( ishape . eq . 2) then 

xcoord(nnod- l+ii)®rad*cos(pi/2. 0-coord (ii) /rad) 
xcoord(nnod*l-ii)®-rad*cos (pi/2. 0-coord (ii) /rad) 
ycoord(nnod-l+ii)®rad*sin(pi/2. 0-coord (ii) /rad) 
y coord (nnod+ 1 - i i ) =ycoord (nnod - 1 + ii ) 
else 

xcoord ( ii )=-rad*cos (pi/2 . O+coord (ii ) /rad-coord (nnod) / (2*rad) ) 
ycoord( ii) =rad*sin(pi/2. 0+coord(ii) /rad- coord (nnod)/ (2*rad)) 
endif 

1  continue 

do  100  ii=l,nnod 

100  write(8 ,2000) xcoord (ii) .ycoord(ii) 
if ( ishape . eq . 2) then 
do  110  ii=2,nnod 

110  write(8,2000)xcoord(nnod+ii-l) ,ycoord(nnod+ii-l) 
endif 

write(8,2010) 

endif 

c 

c  global  displacements  for  straight  beams 
c 

if ( ishape . eq . 1 . and .ncount . eq . 1 . and . is arch . eq . 0) then 
open (8 .file® ’bshape ’ , status® ’ new ’ ) 
do  2  ii*l,nnod 

xcoord(ii)®  coord (nnod) -coord (ii) 
ycoord(ii)*0.0 

2  write(8,2000)xcoord(ii) .ycoord(ii) 
write(8,2010) 

endif 

c 

c  print  out  global  displacements 
c 

write(6,1000) 

write(6,1010) 

write(6 , 1020)ncount , icount 
write(6,1030) 
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do  90  ii=0,nnod-l 
c 

c  x,y  for  arches 
c 

if ( ishapa . eq . 1 . and . isarch . eq . 1 ) then 

if  (ishape .  eq.  1 .  and .  is  arch.  eq.  1 .and. ii .eq.0)write(8 ,2020) ncount 
xcoord ( ii+ 1 ) -- (rad-gd(5*ii+3) ) * 

cos (pi/2. 0+coord(ii+l) /rad- coord (nnod)/(2*rad)+ 

.  gd(5*ii+l)/rad) 
ycoord(ii+l)=(rad-gd(5*ii+3))* 

s in(pi/2. 0+coord(ii+l) /rad-coord (nnod)/(2*rad)+ 

.  gd(5*ii+l)/rad) 

write(8,2000)xcoord(ii+l) ,ycoord(ii+l) 
end  if 

if ( ishape . eq . 2 . and . isarch . eq . 1 ) then 
if (ii.eq.0)write(8,2020)ncount 
xcoord (nnod+ii)=(rad-gd(5*ii+3))* 

.  cos(pi/2.0-coord(ii+l)/rad  +gd(5*ii+l)/rad) 
xcoord (nnod-ii)=-xcoord(nnod+ii) 
ycoord(nnod+ii)=(rad-gd(5*ii+3))* 

.  sin(pi/2.0-coord(ii+l)/rad+gd(S*ii+l)/rad) 
ycoord(nnod-ii)=ycoord(nnod+ii) 
endif 
c 

c  x,y  for  straight  beams 
c 

if ( ishape . eq . 1 . and . isarch . eq . 0) then 

if  (ishape .  eq .  1 .  and .  isarch .  eq .  0 .  and .  ii .  eq .  0)  write(8 , 2020)ncount 

xcoord(ii+l)=coord(nnod)-coord(ii+l)-gd(5*ii+l) 

ycoord(ii+l)=-gd(5*ii+3) 

write(8,2000)xcoord(ii+l) ,ycoord(ii+l) 

endif 

write (6, 1040) ii+1 , (gd(5*ii+j j) , j j=l ,4) 

90  write(6,1050)gd(5*ii+5) 
if (ishape . eq . 2 . and . isarch . eq . 1 ) then 
do  95  ii=l ,2*nnod-l 

95  write(8,2000)xcoord(ii) ,ycoord(ii) 
endif 

if (ishape. ge. 1) write (8 ,2010) 
c 

c  compute  equivalent  forces  requested 
c 

3  do  5  ii=l,ndof 
gf (ii)=0.0d0 
do  5  j j=l ,9 
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gstif (ii, j j)=O.OdO 
5  gn(ii, j j)=O.OdO 
c 

c  loop  over  all  elements  for  stiffness  and  forces 
c 

9  do  30  ielem=l,nelem 
do  10  ii=l,9 

10  eld(ii)=gd(ii+(ielem-l)*5) 
c 

call  stiff (ielem, icount .ncount .kcall) 
c 

c  Assemble  global  stiffness  array,  gstif,  global  equilibrium 
c  stiffness,  gn,  in  banded  form.  Half-bandiridth=9.  Also 
c  assemble  global  force  vector,  gf. 
c 

nr=(ielem-l)*5  +  1 
do  30  jj=0,8 

gf (nr+j j ) =gf (nr+j j ) +elp ( j  j + 1 ) 
do  30  kk=l,9-jj 

gstif (nr+jj ,kk)=gstif (nr+jj ,kk)+stif (jj+l,kk+jj) 
if (linear .eq.l)goto  30 

gn(nr+j j ,kk)=gn(nr+j j ,kk)+eln(j j+1 ,kk+j j) 

30  continue 
c 

c  calculate  the  residual  force  vector  for  nonlinear 
c  analysis.  -[gn]*{gd}+R=-[k+nl/2+n2/3]*{q}+R=gf 
c 

do  60  jj=l,nforc 
ii=iforc(jj) 
add=0 . 

do  50  kk=l,ii-l 
if(ii-kk+l  .gt.  9)goto  50 
add=add+gn (kk , i i -kk+ 1 ) *gd (kk ) 

50  continue 
res=0. 

do  55  11=1,9 

if(ll+ii-l  .gt.  ndof)goto  55 
res=res  +  gn(ii ,ll)*gd(ll+ii-l) 

55  continue 
c 

c  compute  nodal  force 
c 

vforc(j j)=res+add 
60  continue 
c 
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c  print  nodal  forces  and  create  plot  file 
c 

open (7 , f ile= ’ plot  ’ , st  atus = * new  * ) 
if (ncount.eq. l)write(7,*)0. 0,0.0 
write(6,1060) 
do  70  ii=l,nforc 

write (7 , 1065 ) gd  < if ore ( i i ) ) , gd ( if ore ( i i ) -2) , vf ore ( ii ) 

70  write(6,1070)iforc(ii) ,vforc(ii) 

1000  format(/) 

1010  format (lx, ’Results  of  nonlinear  analysis’) 

1020  f ormat( lx, ’increment®’ ,i3, ’  iteration®’ ,i3) 

1030  format (lx, ’Node’ ,7x, ’V* , 13x, ’Psi-s’ ,13x, ’W’ ,13x, *W-s* ) 
1040  format(lx,i4,4(2x,dl2.5)) 

1050  format (lx, ’Midnode  v: ’ ,3x,dl2.5) 

1060  f ormat( lx, /, ’Equivalent  nodal  forces:*) 

1065  format(lx,f 12.5, 2x,f 12.5, 2x,f 12.5) 

1070  format (lx, ’DOF  no: ’ ,i4,2x, ’Force: ’ ,lx,dl2.5) 

2000  format(lx,f 12.5, 2x,f 12.5) 

2010  format (//) 

2020  format(/,lx,i4) 
return 
end 
c 
c 
c 

subroutine  beamk(bmk,ekl ,pl) 
c 

implicit  double  precision  (a-h,o-z) 
c 

common/ el as /ae,de,f e,he,ej ,el,re,te,as,ds ,f s 
dimension  bmk(7,7) 
do  10  ii=l,7 
do  10  jj=l,7 

10  bmk(j j ,ii)=0.0d0 
c 

baik(2,2)=fe*pl**4-(2*de*pl**2)+ae 

c 

bmk(2,3)=de*pl**3-(ae*pl) 

c 

bmk(2,5)=-(he*ekl*pl**3)+fe*ekl*pl 

c 

bmk(2,7)*-(he*ekl*pl**3)+fe*(-pl**3+ekl*pi)+de*pl 

c 

bmk(3,3)=de*pl**4+ae*pl**2 

c 
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bmk(3,5)»-(2*fe*ekl*pl**2) 

c 

bmk(3,7)=-(2*fe*ekl*pl**2)-(2*de*pl**2) 

c 

bak(5,5)=ej*ekl**2*pl**2+he*ekl**2 

c 

bmk(5,7)=he*(ekl*pl**2+ekl**2)+ej*ekl**2*pl**2+fe*ekl 

c 

bmk(7,7)=he*(2*ekl*pl**2+ekl**2)+fe*(pl**2+2*ekl)+ej*ekl** 
.  2*pl**2+de 
c 

bmk(4,4)=9*fs*ekl**2+6*ds*ekl+as 

c 

bmk(4,6)=9*fs*ekl**2+6*ds*ekl+as 

c 

bmk(6,6)=9*fs*ekl**2+6*ds*ekl+as 


c 

do  100  ii=*l  ,7 
do  100  jj=ii,7 
100  brak(j j ,ii)=bmk(ii, j j) 
return 
end 
c 
c 
c 

subroutine  beamnl(q,bmnl ,ek,pl) 
c 

c  Note  that  kl  appears  as  ’ek’  in  this  subroutine 
c 

c  The  equations  in  this  subroutine  were  generated  by  NACSYNA. 
c 

implicit  double  precision  (a-h,o-z) 
c 

common/elas/ae ,de ,f e ,he ,ej ,el ,re ,te , as , ds ,f s 
dimension  bmnl(7,7) ,q(7) 
c 

bmnl(l ,l)=-(he*(q(7)+q(5))*ek*pl**5)-(fe*pl**3*(2*q(3)*pl 
.  **4-(3*q(2)*pl**3)+q(7)*pl**2-(q(7)*ek)-(q(5)*ek)))+de*pl**3 
.  *(pl*(3*q(3)*pl-(4*q(2)))+q(7))+ae*pl**2*(-(q(3)#pl)+q(2)) 
c 
c 

bmnl(l ,2)=-(he*(q(6)+q(4))*ek*pl**5)+f e*pl**3*(3*q(l)*pl** 

.  3-(q(6)*pl**2)+2*q(4)*pl**2+q(6)*ek+q(4)*ek)-(de*pl**3*(4*q( 
.  l)*pl-q(6)+3*q(4)))+ae*pl*(q(l)*pl+q(4)) 


c 
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bmnl(l ,3)=2*he*(q(6)+q(4) )*ek*pl**6-(2*f e*pl**4*(q(l)*pl** 

.  3-(q(6)*pl**2)+q(6)*ek+q(4)*ek))+de*pl**4*(3*q(l)*pl-(2*q(6) 

•  )+q(4))-(ae*pl**2*(q(l)*pl+q(4))) 
c 
c 

bmnl(l ,4)=he*ek*pl**2*(2*q(3)*pi**4-(q(2)*pl**3)-(3*q(7)*pl**2 
.  ) - (2*q(5) *pl**2) +q(7) *ek+q(5) *ek)  - (a  j  * (q(7 ) +q(5) ) *ek**2*pl**4 
.  )+fe*pl**2*(2*q(2)*pl**3-(2*q(3)*ek*pl**2)-(2*q(7)*pl**2)+q(2 
.  )*ek*pl+3*q(7)*ak+2*q(5)*ek)+de*pl**2*(pl*(q(3)*pl-(3*q(2))) 

.  +2*q(7))+ae*pl*(-(q(3)*pl)+q(2)) 
c 
c 

bmnl(l ,5)=-(ej*(q(6)+q(4) )*ek**2*pl**4)-(he*ek*pl**2*(q(l) 

.  *pl**3+q(6)*pl**2+2*q(4)*pl**2-(q(6)*ek)-(q(4)*ek)))+f e*ek*pl 
.  **2*(q(l)*pl+q(6)+2*q(4) ) 
c 
c 

bmnl ( 1 ,6)=f e*pl**2* (2*q(3)*pl**4- (q(2) *pl**3) - (2*q(3) *ek*pl**2 
.  )  - (q(7) *pl**2)+q(2) *ek*pl+2*q(7) *ek+q(5) *ek)+he*ek*pl**2* (2*q 
.  (3)*pl**4-(q(2)*pl**3)-(2*q(7)*pl**2)-(q(5)*pl**2)+q(7)*ek+q(5)* 

.  ek)-(ej*(q(7)+q(5) )%ek**2*pl**4)-(de*pl**2*(pl*(2*q(3)* 

.  pl-q(2) )-q(7) )) 
c 
c 

bmnl(l ,7)=-(ej*(q(6)+q(4))*ek**2*pl**4)-(he*ek*pl**2*(q(l) 

.  *pl**3+2*q(6)*pl**2+3*q(4) *pl**2- (q(6) *ek) - (q(4) *ek) ) ) - (f e*pi 
.  **2*(q(l)*pl**3+q(6)*pl**2+2*q(4)*pl**2-(q(l)*ek*pi)-(2*q(6)*ek)- 
.  (3*q(4)*ek)))+de*pl**2*(q(l)*pl+q(6)+2*q(4) ) 
c 
c 

bmnl(2,2)=-(3*fe*pl*(2*q(3)*pl’M[4-(3*q(2)*pl**3)+q(7)*pl**2-(q 
.  (7)*ek) - (q(5) *ek) ) ) - (3*he* (q(7)+q(5) ) *ek*pl**3)+3*de*pl* 

.  (pl*(3*q(3)*pl-(4*q(2)))+q(7))-(3*ae*(q(3)*pl-q(2))) 
c 
c 

bmnl(2,3)=6*he*(q(7)+q(5) )*ek*pl**4- (6*f e*pl**2*(q(2)*pl** 

.  3-(q(7)*pl**2)+q(7)*ek+q(5)*ek))-(3*de*pl**2*(pl*(q(3)*pl-(3 
.  *q(2)))+2*q(7)))+3*ae*pl*(q(3)*pl-q(2)) 
c 
c 

bmnl (2,4) =-(ej*(q(6)+q(4))*ek**2*pl**4)+fe*pl**2*(2*q(l)* 

.  pl**3-(2*q(6)*pl**2)+q(l)*ek*pl+3*q(6)*ek+4*q(4)*ek)-(he*ek* 

.  pl**2*(q(l)*pl**3+3*q(6)*pl**2+4*q(4)*pl**2-(q(6)*ek)-(q(4)*ek))) 
.  -(de*pl**2*(3*q(l)*pl-(2*q(6) )+q(4)))+ae*(q(l)*pl+q(4)) 
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bmnl (2 , 5) =3*he*ek* (2*q(3) *pl**4- (q(2) *pl**3) - (q(7) *pl**2)  +q(7) 
*ek+q(5)*ek)-(3*aj*(q(7)+q(5))*ek**2*pl**2)-(3*fe*ek*(pl* 
(2*q(3)*pl-q(2) )-q(7) ) ) 


bmnl(2,6)=-(ej*(q(6)+q(4))*ak**2*pl**4)-(he*ek*pi**2*(q(l) 
*pl**3+2*q(6) *pl**2+3*q(4) *pl**2- (q(6) *ek) - (q(4) *ek) ) ) -  (f  e*pl 
**2*(q(l)*pi**3+q(6)*pl**2+2*q(4)*pl**2-(q(l)*ek*pl)-(2*q(6)*ek)- 
(3*q(4)*ek)))+da*pl**2*(q(l)*pl+q(6)+2*q(4)) 


bmnl(2,7)=3*fa*(2*q(3)*pl**4-(q(2)*pl**3)-(2*q(3)*ek*pl**2)-(q 

(7)*pl**2)+q(2)*ak*pl+2*q(7)*ek+q(5)*ek)+3*he*ek*(2*q(3)*pl** 

4-(q(2)*pl**3)-(2*q(7)*pl**2)-(q(5)*pl**2)+q(7)*ek+q(5)*ek)-(3*ej 

*(q(7)+q(5))*ek**2*pl**2)-(3*de*(pl*(2*q(3)*pl-q(2))-q(7 

))) 


bmnl(3,3)=9*f a*(q(7)+q(5))*ek*pl**3-(3*de*pl**3*(pl*(2*q( 
3)*pl+q(2))-(3*q(7))))-(3*ae*pl**2*(q(3)*pl-q(2))) 


bmnl (3 , 4) =- (2*e  j  * (q(6) +q(4) ) *ek**2*pl**5) +he*ek*pl**3* (2*q 
(l)*pl**3-(2*q(6)*pl**2)-(q(6)*ek)-(q(4)*ek))-(2*fe*ek*pl**3* 
(q(l)*pl+2*q(6)+3*q(4)))+de*pl**3*(q(i)*pl-(3*q(6))-(2*q(4)) 
)+ae*pl*(-(q(l)*pl)-q(4) ) 


bmnl(3,5)=3*he*ek*pl*(2*q(2)*pl**3-(2*q(7)*pl**2)-(q(7)*ek)-(q 

(5)*ek))-(6*ej*(q(7)+q(5))*ek**2*pl**3)+3*fe*ek*pl*(pl*(3 

*q(3)*pl-(2*q(2)))-q(7)) 


bmnl(3,6)=-(2*ej*(q(6)+q(4))*ek**2*pl**5)+he*ek*pl**3*(2*q 

(l)*pl**3-(4*q(6)*pl**2)-(2*q(4)*pl**2)-(q(6)*ek)-(q(4)*ek))+2*fe 

*pl**3*(q(l)*pl’M‘3-(q(6)*pl**2)-(q(l)*ek*pl)-(q(6)*ek)-(2*q(4 

)*ek))-(de*pl**3*(2*q(l)*pl+q(6)+3*q(4))) 


bmnl(3,7)=3*fe*pl*(2*q(2)*pl**3+3*q(3)*ek*pl**2-(2*q(7)*pl**2) 

-(2*q(2)*ek*pl)-(2*q(7)*ek)-(q(5)*ek))+3*he*ek*pl*(2*q(2)*pl 

**3-(4*q(7)*pl**2)-(2*q(5)*pl**2)-(q(7)*ek)-(q(5)*ak))-(6*ej* 

(q(7)+q(5))*ek**2*pl**3)+3*de*pl*(pl*(3*q(3)*pl-(2*q(2)))-q( 


.  7)) 


c 

c 

bnml(4,4)=-(he*ek*pl*(4*q(2)*pl**3+q(3)*ek*pl**2-(4*q(7)*pl**2 
.  )-(q(2)*ek*pl)-(2*q(7)*ek)-(2*q(5)*ek)))+3*el*(q(7)+q(5))*ek 
.  **3*pl**3-(f e*ek*pl*(2*pl*(3*q(3)*pi-(2*q(2)))-(5*q(7))-(3*q( 

.  5))))-(de*pl*(pl*(2*q(3)*pl+q(2))-(3*q(7))))-(ej*ek**2* 

.  pl**3*(pl*(2*q(3)*pl+q(2))-(7*q(7))-(4*q(5))))+ae*(-(q(3)*pl) 

.  +q(2) ) 
c 
c 

branl(4,5)=-(he*ek*pl*(2*q(l)*pl**3-(2*q(6)*pl**2)-(q(l)*ek*pl) 

.  - (q(6)*ek) - (2*q(4) *ek) ) )+3*el* (q(6) +q(4) )*ak**3*pl**3+f e* 

.  ek*pl*(2*q(l)*pl+q(6)+3*q(4) )-(ej*ek**2*pl**3*(q(l)*pl-(5*q(6 

.  ))-(4*q(4)))) 
c 
c 

branl(4,6)=-(he*ek*pl*(2*q(3)*pl**4+3*q(2)*pi**3+q(3)*ek*pl**2- 
.  (7*q(7)*pl**2)-(2*q(5)*pl**2)-(q(2)*ak*pl)-(q(7)*ek)-(q(5)*ek) ))- 

.  (f e*pl*(2*q(2)*pl**3+4*q(3)*ek*pl**2-(2*q(7)*pl**2)-(3*q(2)* 

.  ek*pl) - (2*q(7) *ek) - (q(5) *ek) ))+3*al*(q(7)+q(5) )*ek**3*pl**3- ( 

.  de*pl*(pl*(3*q(3)*pl-(2*q(2)))-q(7)))-(ej*ak**2*pl**3*( 

.  pl*(2*q(3)*pl+q(2))-(8*q(7) )-(5*q(5))>) 
c 
c 

bmnl(4,7)=-(he*8k*pl*(3*q(l)*pl**3-(7*q(6)*pl**2)-(4*q(4)*pl*’t' 

.  2)-(q(l)*ek*pl)-(q(6)*ek)-(2*q(4)*ak)))-(fe*pl*(2*q(l)*pl**3- 
.  (2*q(6)*pl**2)-(3*q(l)*ek*pl)-(2*q(6)*ak)-(5*q(4)*ek)))+3*el* 

.  (q(6)+q(4))*ek**3*pl**3+de*pl*(2*q(l)*pl+q(6)+3*q(4))-(ej 
.  *ek**2*pl**3*(q(l)*pl-(8*q(6))-(7*q(4)))) 
c 
c 

bmnl(5,5)=~(3*ej*ek**2*pl*(pl*(2*q(3)*pl+q(2))-(3*q(7))))-(3*he 
.  *ek**2*(q(3)*pl-q(2)))+9*el*(q(7)+q(5))*ek**3*pl 
c 
c 

bmnl(5,6)=-(he*ek*pl*(q(l)*pl**3-(3*q(6)*pl**2)-(2*q(4)*pl**2) 

.  - (q( 1 ) *ek*pl) - (q(4) *ek) ) ) +3*al* (q(6) +q(4) ) *ek**3*pl**3- (a j 
.  *ek**2*pl**3*(q(l)*pl-(6*q(6))-(5*q(4))))+fa*ek*pl*(q(l)*pl+ 

.  q(4)) 
c 
c 

bmnl(5,7)=-(3*he*ak* (pl*(pl*(2*q(3)*pi+q(2))+q(3)*ek-(3*q(7))) 

.  -(q(2)*ek)))-(3*ej*ek**2*pl*(pl*(2*q(3)*pl+q(2))-(6*q(7))-(3* 

.  q(5))))-(3*fe*ek*(q(3)*pl-q(2)))+9*el*(q(7)+q(5))*ek**3* 


C-33 


•  pi 
c 

c 

bmnl(6,6)=3*el*(q(7)+q(5))*ek**3*pl**3-(he*ek*pl**2*(pl*(2 
.  *pl* (2*q(3) *pl+q(2) ) +q(3) *ek- (9*q(7) ) - (3*q(5) ) ) - (q(2) *ek) ) ) - (fa 
.  *pl**2*(pl*(pl*(2*q(3)*pl+q(2))+2*q(3)*ek-(3*q(7)))-(2*q(2)*ek) 

•  ))-(ej*ek**2*pl**3*(pl*(2*q(3)*pl+q(2))-(9*q(7))-(6*q(5))))+ 

.  de*pl**2*(-(q(3)*pl)+q(2)) 

c 

c 

bmnl(6,7)=-(he*ek*pl*(2*q(l)*pl**3-(9*q(6)*pl**2)-(7*q(4)*pl** 

.  2)-(q(l)*ek*pl)-(q(4)*ek)))-(fe*pl*(q(l)*pl**3-(3*q(6)*pl**2) 

.  - (2*q(4) *pl**2) - (2*q(l) *ek*pl) - (2*q(4) *ek) ) )+3*el* (q(6)+q(4) ) 

.  *ek**3*pl**3-(ej*ek**2*pi*>tt3*(q(i)*pl-(9*q(6))-(8*q(4))))+de 
.  *pl*(q(l)*pl+q(4)) 
c 
c 

bHinl (7,7)=- (3*he*ek* (pi* (2*pl* (2*q(3) *pl+q(2) ) +q(3) *ek- (9*q(7 ) 

.  )-(3*q(5)))-(q(2)*ak)))-(3*fa*(pl*(pl*(2*q(3)*pl+q(2))+2*q(3) 

.  *ek-(3*q(7)))-(2*q(2)*ek)))-(3*ej*ek**2*pl*(pl*(2*q(3)*pl+q(2 
.  ) ) “ (9*q(7) ) - (6*q(5) ) ) ) - (3*da* (q(3) *pl-q(2) ) ) +9*al* (q(7)+ 

.  q(5))*ek**3*pl 
c 

do  100  ii-1,7 
do  100  jj=ii,7 
100  bmnl(j j ,ii)=bmnl(ii, j j) 
return 
end 
c 
c 


subroutine  beamn2 (q , bnm2 , ek , p 1 ) 
c 

c  Note  that  kl  appears  as  ’ek’  in  this  subroutine 
c 

c  The  aquations  in  this  subroutine  vara  generated  by  MACSYMA. 
c 

implicit  double  precision  (a-h,o-z) 
c 

common/ el as / ae , de , f e , he , e j , el , re , t a , as , ds , f s 
dimension  bmn2(7,7) ,q(7) 
c 

t0=he*pl**2*(36*q(l)**2*pl**8-(72*q(l)*q(6)*pl**7)+36*q(6)**2* 

.  pl**6+12*q(2)**2*pl**6-(24*q(2)*q(7)*pl**5)+12*q(3)*q(7)*ek*pl**4 
.  -(44*q(6)**2*ek*pl**4)-(88*q(4)*q(6)*ek*pl**4)+12*q(3)*q(5)*ek*pl 
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**4-(44*q(4)**2*ek*pl**4)+12*q(7)**2*pl**4+7*q(6)**2*ak**2*pi**2+ 

14*q(4)*q(6)*ek**2*pl**2+7*q(4)**2*ek**2*pl**2-(12*q(7)**2*ek*pl 

**2)-(12*q(5)*q(7)*ak*pl**2)+q(7)**2*ek**2+2*q(5)*q(7)*ek**2+q(5) 

**2*ak#*2)/6.0 

t0=t0+fa*pl**2*(8*q(3)**2*pl**6+81*q(l)**2*pl**6-(30*q(l)*q(6) 

*pl**5)+132*q(l)*q(4)*pl**5-(44*q(2)*q(3)*pl**5)+28*q(3)*q(7)*pl 

**4-(l9*q(6)**2*pl**4)-(68*q(4)*q(6)*pl**4)+32*q(4)**2*pl**4+27*q 

(2)**2*pl**4+6*q(l)*q(6)*ek*pl**3+6*q(l)*q(4)*ek*pl**3-(10*q(2)*q 

(7)*pl**3)-(4*q(3)*q(7)*ek*pl**2)+1.0*q(6)**2*ek*pl**2+26*q(4)*q(6 

)*ak*pl**2-(4*q(3)*q(5)*ek*pl**2)+16*q(4)**2*ek*pl**2-(9*q(7)**2* 

pl**2)+2*q(2)*q(7)*ek*pl+2*q(2)*q(5)*ek*pl+2*q(7)**2*ek+2*q(5)*q( 

7)*ek)/6.0 

bmn2(l,l)=t0-(1.0/3.0*ej*ek*pl**4*(24*q(l)*q(6)*pl**5+24*q(l)* 
q(4)*pl**5-(24*q(6)**2*pl**4)-(24*q(4)*q(6)*pl**4)+8*q(2)*q(7)*pl 
**3+8*q(2)*q(5)*pl**3+8*q(6)**2*ek*pl**2+16*q(4)*q(6)*ek*pl**2+8* 
q(4)**2*ek*pl**2-(8*q(7)**2*pl**2)-(8*q(5)*q(7)*pl**2)+3*q(7)**2* 
ek+6*q(5) *q(7)*ak+3*q(5) **2*ek) ) - (1 . 0/6 . 0*da*pl**2* (3*q(3)** 
2*pl**4+18*q(l)**2*pl**4-(6*q(l)*q(6)*pl**3)+30*q(l)*q(4)*pl**3-( 
10*q(2)*q(3)*pl**3)+4*q(3)*q(7)*pl**2-(7*q(6)**2*pl**2)-(20*q(4)* 
q(6)*pl**2)+5*q(4)**2*pl**2+6*q(2)**2*pl**2-(2*q(2)*q(7)*pl)-q(7) 
**2) ) +4 .0/3 . 0*al*ek**2*pl**6* (4* (q(6) +q(4) ) **2*pl**2+(q(7 ) +q( 

5))**2)+ae*pl**2*(q(3)**2*pl**2+3*q(l)**2*pl**2-(q(2)*(2*q(3) 
*pl-q(2) ) ) +6*q( 1 ) *q(4) *pl+3*q(4) **2 ) /2 . 0 


t0=ha*pl**2*(12*q(l)*q(2)*pl**6-(12*q(l)*q(7)*pl**5)-(12*q(2)* 
q(6)*pl**5)+8*q(3)*q(6)*ek*pl**4+8*q(3)*q(4)*ak*pl**4+12*q(6)*q(7 
)*pl**4-(16*q(6)*q(7)*ek*pl**2)-(16*q(4)*q(7)*ek*pl**2)-(8*q(5)*q 
(6)*ek*pl**2)-(8*q(4)*q(5)*ek*pl**2)+3*q(6)*q(7)*ek**2+3*q(4)*q(7 
) *ak**2+3*q(5) *q(6) *ek**2+3*q(4) *q(5) *ek**2) /3 . 0+4*el* (q(6) +q 
(4))*(q(7)+q(5))*ek**2*pl**6-(l . 0/3 .0*f e*pl**2*(22*q(l)*q(3)* 
pl**5-(10*q(3)*q(6)*pl**4)+12*q(3)*q(4)*pl**4-(27*q(l)*q(2)*pl**4 
)+5*q(l)*q(7)*pl**3+5*q(2)*q(6)*pl’M‘3-(22*q(2)*q(4)*pH‘*3)+3*q(3) 
*q(6)*ak*pl**2+3*q(3)*q(4)*ek*pl**2+5*q(6)*q(7)*pl**2+10*q(4)*q(7 
)*pl**2-(q(l)*q(7)*ek*pl)-(q(2)*q(6)*ek*pl)-(q(l)*q(5)*ek*pl)-(q( 
2)*q(4)*ek*pl)-(4*q(6)*q(7)*ek)-(5*q(4)*q(7)*ek)-(2*q(5)*q(6)*ek) 
~(3*q(4)*q(5)*ek))) 

bnn2(l ,2)=t0-(l .0/3.0*ej*ek*pl**4*(8*q(l)*q(7)*pl**3+8*q(2)*q( 

6) *pl**3+8*q(l)*q(5)*pl**3+8*q(2)*q(4)*pl**3-(16*q(6)*q(7)*pl**2) 
-(8*q(4)*q(7)*pl**2)-(8*q(5)*q(6)*pl**2)+5*q(6)*q(7)*ek+5*q(4)*q( 

7) *ek+5*q(5) *q(6) *ek+5*q(4) *q(5) *ek) ) +de*pl**2* (5*q( 1) *q(3) * 
pl**3-(4*q(3)*q(6)*pl**2)+q(3)*q(4)*pl**2-(6*q(l)*q(2)*pl**2)+q(l 
)*q(7)*pl+q(2)*q(6)*pl-(5*q(2)*q(4)*pl)+3*q(6)*q(7)+4*q(4)*q(7))/ 
3.0-(ae*pl*(q(l)*pl+q(4) )*(q(3)*pl-q(2))) 


C-35 


t0=fe*pl**3*(8*q(l)*q(3)*pl**5-(8*q(3)*q(6)*pl**4)-(22*q(l)*q( 
2)*pl**4)+14*q(l)*q(7)*pi**3+10*q(2)*q(6)*pl**3-(12*q(2)*q(4)*pl 
**3)+5*q(3)*q(6)*ek*pl**2+5*q(3)*q(4)*ek*pl**2-(2*q(6)*q(7)*pl**2 
)+12*q(4)*q(7)*pl**2-(2*q(l)*q(7)*ek*pl)-(3*q(2)*q(6)*ek*pl)-(2*q 
(l)*q(5)*ek*pl)-(3*q(2)*q(4)*ak*pl)-(4*q(6)*q(7)*ek)-(6*q(4)*q(7) 
*ek)-(2*q(5)*q(6)*ek)-(4*q(4)*q(5)*ek))/3.0-(2.0/3.0*ej*(q(6) 
+q(4))*(q(7)+q(5))*ak**2*pl**5)-(1.0/3.0*he*ek*pl**3*(8*q(3)* 
q(6)*pi**4+8*q(3)*q(4)*pl**4-(6*q(l)*q(7)*pl**3)-(8*q(2)*q(6)*pl 
**3)-(6*q(l)*q(5)*pl**3)-(8*q(2)*q(4)*pl**3)-(2*q(6)*q(7)*pl**2)- 
(8*q(4)*q(7)*pl**2)-(2*q(5)*q(6)*pl**2)-(8*q(4)*q(5)*pl**2)+3*q(6 
)*q(7)*ek+3*q(4)*q(7)*ek+3*q(5)*q(6)*ek+3*q(4)*q(5)*ek)) 
bmn2(l ,3)=t0-(1.0/3.G*da*pl**3*(3*q(i)*q(3)*pl**3-(7*q(3)*q(6 
)*pl**2)-(4*q(3)*q(4)*pl**2)-(5*q(l)*q(2)*pl**2)+2*q(l)*q(7)*pl+4 
*q(2)*q(6)*pl-(q(2)*q(4)*pl)+3*q(6)*q(7)+5*q(4)*q(7)))+ae*pl 
**2*(q(l)*pl+q(4) )*(q(3)*pi-q(2) ) 


tO=-(l .0/6.0*ha*ek*pl*(8*q(3)**2*pl**6+88*q(l)*q(6)*pl**5+88*q 
(l)*q(4)*pl**5-(16*q(2)*q(3)*pl**5)-(16*q(3)*q(7)*pl**4)-(l6*q(6) 
**2*pl**4)+56*q(4)*q(6)*pl**4-(16*q(3)*q(5)*pl**4)+72*q(4)**2*pl 
**4-(14*q(l)*q(6)*ek’t'pl**3)-(14*q(l)*q(4)*ek*pl**3)+32*q(2)*q(7)* 
pl**3+16*q(2)*q(5)*pl**3+6*q(3)*q(7)*ek*pl**2-(7*q(6)**2*ek*pl**2 
)-(28*q(4)*q(6)*ak*pl**2)+6*q(3)*q(5)*ek*pl**2-(21*q(4)**2*ek*pl 
**2)-(8*q(7)**2*pl**2)-(6*q(2)*q(7)*ek*pl)-(6*q(2)*q(5)*ek*pl)-(q 
(7)**2*ak)-(2*q(5)*q(7)*ek)-(q(5)**2*ek))) 
t0=t0+fe*pl*(66*q(l)**2*pl**6-(68*q(l)*q(6)*pH‘*5)+64*q(l)*q(4 
)*pl**5-(24*q(2)*q(3)*pl**5)+5*q(3)**2*ek*pl**4+3*q(l)**2*ak*pl** 
4+24*q(3)*q(7)*pl**4+2*q(6)**2*pl**4-(64*q(4)*q(6)*pl**4)+22*q(2) 
**2*pl**4+26*q(l)*q(6)*ek*pl**3+32*q(l)*q(4)*ek*pl**3-(6*q(2)*q(3 
)*ek*pl**3)-(20*q(2)*q(7)*pl**3)-(12*q(3)*q(7)*ek*pl**2)+10*q(6) 
**2*ek*pl**2+46*q(4)*q(6)*ek*pl**2-(8*q(3)*q(5)*ek*pl**2)+39*q(4) 
**2*ek*pl**2+q(2)**2*ak*pl**2-(2*q(7)**2*pl**2)+10*q(2)*q(7)*ek* 
pl+6*q(2)*q(5)*ak*pl+2*q(7) **2*ek+2*q(5)*q(7)*ek)/6.0 
t0=t0-(1.0/3.0*aj*ek*pl**3*(12*q(l)**2*pl**6-(24*q(l)*q(6)*pl 
**5)+12*q(6)**2*pl**4+4*q(2)**2*pl**4+16*q(l)*q(6)*ek*pl**3+16*q( 
l)*q(4)*ak*pl**3-(8*q(2)*q(7)*pl**3)+2*q(3)*q(7)*ek*pl**2-(22*q(6 
)**2*ak*pl**2)-(28*q(4)*q(6)*ek*pl**2)+2*q(3)*q(5)*ek*pl**2-(6*q( 
4)**2*ak*pl**2)+4*q(7)**2*pl**2+5*q(2)*q(7)*ek*pl+5*q(2)*q(5)*ek* 
pl-(7*q(7)**2*ek)-(7*q(5'>*q(7)*ek)))+el*ek**2*pl**3*(32*q(l)* 
q(6)*pl**5+32*q(l)*q(4)*pl**5- (32*q(6)**2*pl**4)-(32*q(4)*q(6)*pl 
**4)+12*q(2)*q(7)*pl**3+i2*q(2)*q(5)*pl**3+9*q(6)**2*ek*pl**2+18* 
q(4) *q(6) *ek*pl**2+9*q (4) **2*ek*pl**2- ( 12*q(7) **2*pl**2) - ( 12*q(5) 
*q(7)*pl**2)+3*q(7)**2*ek+6*q(5)*q(7)*ek+3*q(5)**2*ek)/3.0 
bmn2(l ,4)*t0+da*pl*(4*q(3)**2*pl**4-(15*q(l)**2*pl**4)+20*q(l 


C-36 


)*q(6)*pl**3-(10*q(l)*q(4)*pl**3)+2*q(2)*q(3)*pl**3-(10*q(3)*q(7) 

*pl**2)+7*q(6)**2*pl**2+34*q(4)*q(6)*pl**2+12*q(4)**2*pl**2-(5*q( 

2)**2*pl**2)+8*q(2)*q(7)*pl+q(7)**2)/6 .0- (4.0/3. 0*re*ek**3*pl 

**5*(3*(q(6)+q(4))**2*pl**2+(q(7)+q(5))**2))+ae*pl*(q(3)**2* 

pl**2+3*q(l)**2*pl**2-(q(2)*(2*q(3)*pl-q(2)))+6*q(l)*q(4)*pl+3*q( 

4)**2)/2.0 


t0=he*ek*pl*(6*q(l)*q(3)*pl**5+2*q(3)*q(6)*pl**4+8*q(3)*q(4)* 
pl**4-(6*q(l)*q(7)*pl**3)-(8*q(2)*q(6)*pl**3)-(8*q(2)*q(4)*pl**3) 
-(3*q(3)*q(6)*ek*pl**2)-(3*q(3)*q(4)*ek*pl**2)+6*q(6)*q(7)*pl**2+ 
q(l)*q(7)*ek*pl+3*q(2)*q(6)*ak*pl+q(i)*q(5)*ek*pl+3*q(2)*q(4)*ek* 
pl+q(4)*q(7)*ek+q(4)*q(5)*ek)/3.0-(8.0/3.0*re*(q(6)+q(4))*(q( 
7)+q(5))*ek**3*pl**5)-(l .0/3.0*ej*ek*pl**3*(8*q(l)*q(2)*pl**4 
-(8*q(l)*q(7)*pl**3)-(8*q(2)*q(6)*pl**3)+2*q(3)*q(6)*ek*pl**2+2*q 

(3) *q(4)*ek*pl**2+8*q(6)*q(7)*pl**2+6*q(l)*q(7)*ek*pl+5*q(2)*q(6) 
*ek*pl+6*q(l)*q(5)*ek*pl+5*q(2)*q(4)*ek*pl-(13*q(6)*q(7)*ek)-(7*q 

(4) *q(7)*ek)-(6*q(5)*q(6)*ek))) 

bmn2(l f5)=t0+2.0/3.0*el*ek**2*pl**3*(4*q(l)*q(7)*pl**3+6*q(2)* 
q(6)*pl**3+4*q(l)*q(5)*pl**3+6*q(2)*q(4)*pl**3-(10*q(6)*q(7)*pl** 
2)-(6*q(4)*q(7)*pl**2)-(4*q(5)*q(6)*pl**2)+3*q(6)*q(7)*ek+3*q(4)* 
q(7) *ek+3*q(5) *q(6) *ek+3*q(4) *q(5) *ek) - ( 1 . 0/3 . 0*f e*ek*pl* (2*q 
(l)*q(3)*pl**3+2*q(3)*q(6)*pl**2+4*q(3)*q(4)*pl**2-(q(l)*q(2)*pl 
**2)-(q(l)*q(7)*pl)-(2*q(2)*q(6)*pl)-(3*q(2)*q(4)*pl)-(q(4)*q(7)) 
)) 


t0=-(1.0/3.0*he*pl**2*(18*q(l)**2*pl**7-(36*q(l)*q(6)*pl**6)+4 
*q(3)**2*ek*pl**5+18*q(6)**2*pl**5+6*q(2)**2*pl**5+44*q(l)*q(6)* 
ek*pl**4+44*q(l)*q(4)*ek*pl**4-(8*q(2)*q(3)*ek*pl**4)-(12*q(2)*q( 
7)*pl**4)-(2*q(3)*q(7)*ek*pl’M>3)-(30*q(6)**2*ek*pl**3)-(16*q(4)*q 
(6)*ek*pl**3)-(2*q(3)*q(5)*ek*pl**3)+14*q(4)**2*ek*pl**3+6*q(7)** 
2*pl**3-(7*q(l)*q(6)*ek**2*pl**2)-(7*q(l)*q(4)*ek**2*pl**2)+16*q( 
2)*q(7)*ak*pl**2+8*q(2)*q(5)*ek*pl**2+3*q(3)*q(7)*ek**2*pl-(7*q(4 
)*q(6)*ek**2*pl)+3*q(3)*q(5)*ek**2*pl-(7*q(4)**2*ek**2*pl)-(10*q( 
7)**2*ek*pl)-(6*q(5)*q(7)*ek*pl)-(3*q(2)*q(7)*ek**2)-(3*q(2)*q(5) 
*ak**2) ) ) 

t0=t0-(l .0/3.0*ej*ak*pl**3*(12*q(l)**2*pl**6-(48*q(l)*q(6)*pl 
**5)-(24*q(l)*q(4)*pl**5)+36*q(6)**2*pl**4+24*q(4)*q(6)*pl**4+4*q 
(2)**2*pl*#4+16*q(l)*q(6)*ek*pl**3+16*q(l)*q(4)*ek*pl**3-(16*q(2) 
*q(7)*pl**3)-(8*q(2)*q(5)*pl**3)+2*q(3)*q(7)*ek*pl**2-(30*q(6)**2 
*ek*pl**2)-(44*q(4)*q(6)*ak*pl**2)+2*q(3)*q(5)*ek*pl**2-(14*q(4) 
**2*ak*pl**2)+12*q(7)**2*pl**2+8*q(5)*q(7)*pl**2+5*q(2)*q(7)*ek* 
pl+5*q(2)*q(5)*ek*pl-(10*q(7)**2*ek)-(13*q(5)*q(7)*ek)-(3*q(5)**2 
*ak))) 


C-37 


t0=t0+el*ak**2*pl**3*(32*q(l)*q(6)*pl**5+32*q(l)*q(4)*pl**5-( 

.  48*q(6)**2*pl**4)-(64*q(4)*q(6)*pl**4)-(16*q(4)**2*pl**4)+12*q(2) 

.  *q(7)*pl**3+12*q(2)*q(5)*pl**3+9*q(6)**2*ek*pl**2+18*q(4)*q(6)*ek 
.  *pl**2+9*q(4)**2*ek*pl**2-(16*q(7)**2*pl**2)-(20*q(5)*q(7)*pl**2) 

.  -(4*q(5)**2*pl**2)+3*q(7)**2*ek+6*q(5)*q(7)*ek+3*q(5)**2*ek)/3.0 
bmn2(l,6)=t0-(1.0/6.0*fe*pl**2*(8*q(3)**2*pl**5+15*q(i)**2*pl 
.  **5+38*q(l)*q(6)*pl**4+68*q(l)*q(4)*pi**4-(20*q(2)*q(3)*pl**4)-(5 
.  *q(3)**2*ek*pl**3)-(3*q(l)**2*ek*pl**3)+4*q(3)*q(7)*pl**3-(21*q(6 
.  )**2*pl**3)-(4*q(4)*q(6)*pl**3)+32*q(4)**2*pl**3+5*q(2)**2*pl**3- 
.  (20*q(l)*q(6)*ek*pl**2)-(26*q(l)*q(4)*ek*pl**2)+6*q(2)*q(3)*ek*pl 
.  **2+10*q(2)*q(7)*pl**2+8*q(3)*q(7)*ek*pl-(20*q(4)*q(6)*ak*pl)+4*q 
.  (3)*q(5)*ek*pl-(23*q(4)**2*ek*pl)-(q(2)**2*ak*pl)-(7*q(7)*+2*pl)- 
.  (8*q(2)*q(7)*ek)-(4*q(2)*q(5)*ek)) )+de*pl**2*(7*q(3)**2*pl** 

.  3+3*q(l)**2*pl**3+14*q(l)*q(6)*pi**2+20*q(l)*q(4)*pl**2-(8*q(2)*q 
.  (3)*pl**2)-(6*q(3)*q(7)*pl)+14*q(4)*q(6)*pt+17*q(4)**2*pl+q(2)**2 
.  *pl+6*q(2) *q(7) ) /6 . 0- (4 . 0/3 .0*re*ek**3*pl**5* (3*(q(6)+q(4) )** 

.  2*pi**2+(q(7)+q(5))**2)) 
c 
c 

t0=-(1.0/3.0*he*pl*(12*q(l)*q(2)*pl**6-(6*q(l)*q(3)*ek*pl**5)- 
.  (I2*q(l)*q(7)*pl**5)-(12*q(2)*q(6)*pl**5)-(2*q(3)*q(6)*ek*pl**4)- 
.  (8*q(3)*q(4)*ek*pl**4)  +  12*q(6)*q(7)*pl**4+i2*q(l)*q(7)*ak*pl**3+ 

.  16*q(2)*q(6)*ek*pl**346*q(l)*q(5)*ek*pl**3+16*q(2)*q(4)*ek*pl**3+ 

.  3*q(3)*q(6)*ek**2*pl**2+3*q(3)*q(4)*ek**2*pl**2-(20*q(6)*q(7)*ek* 

.  pl**2)-(8*q(4)*q(7)*ek*pl**2)-(6*q(5)*q(6)*ek*pl**2)-(q(l)*q(7)* 

.  ek**2*pl)-(3*q(2)*q(6)*ek**2*pl)-(q(l)*q(5)*ak**2*pl)-(3*q(2)*q(4 
.  )*ek**2*pl)-(q(4)*q(7)*ak**2)-(q(4)*q(5)*ek**2) )) 
t0=t0+fe*pl*(14*q(l)*q(3)*pl**5-(2*q(3)*q(6)*pl**4)+12*q(3)*q( 

.  4)*pl**4-(5*q(l)*q(2)*pl**4)-(2*q(i)*q(3)*ak*pl**3)-(9*q(l)*q(7)* 

.  pl**3)-(5*q(2)*q(6)*pl**3)-(10*q(2)*q(4)*pl**3)-(4*q(3)*q(6)*ek* 

.  pl**2)-(6*q(3)*q(4)*ek*pl**2)+q(l)*q(2)*ek*pl**2+7*q(6)*q(7)*pl** 
.  2-(2*q(4)*q(7)*pl*‘*2)+2*q(l)*q(7)*ak*pl+4*q(2)*q(6)*ek*pl+q(l)*q( 
.  5)*ek*pl+5*q(2)*q(4)*ek*pl+2*q(4)*q(7)*ek+q(4)*q(5)*ak)/3.0-(8.0/ 
.  3.0*re*(q(6)+q(4))*(q(7)+q(5))*ek**3*pl**5) 
t0=t0-(l .0/3.0*ej*ek*pl**3*(8*q(l)*q(2)*pl**4-(16*q(l)*q(7)*pl 
.  **3)-(16*q(2)*q(6)*pl**3)-(8*q(l)*q(5)*pl**3}-(8*q(2)*q(4)*pl**3) 

.  +2*q(3)*q(6)*ek*pl**2+2*q(3)*q(4)*ek*pi**2+24*q(6)*q(7)*pl**2+8*q 
.  (4)*q(7)*pl**2+8*q(5)*q(6)*pl**2+6*q(l)*q(7)*ek*pl+5*q(2)*q(6)*ek 
.  *pl+6*q(l)*q(5)*ek*pl+5*q(2)*q(4)*ek*pl-(20*q(6)*q(7)*ek)-(14*q(4 
.  )*q(7)*ek)-(13*q(5)*q(6)*ek)-(7*q(4)*q(5)*ek)))+2.0/3.0*al*ek 
.  **2*pl**3*(4*q(l)*q(7)*pl**3+6*q(2)*q(6)*pl**3+4*q(l)*q(5)*pl**3+ 
.  6*q(2)*q(4)*pl**3-(16*q(6)*q(7)*pl**2)-(12*q(4)*q(7)*pl**2)-(10*q 
.  (5)*q(6)*pl**2)-(6*q(4)*q(5)*pl**2)+3*q(6)*q(7)*ek+3*q(4)*q(7)*ek 
.  +3*q(5)*q(6)*ek+3*q(4)*q(5)*ek) 

bmn2( 1 ,7)=t0-(l .0/3.0*da*pl*(2*q(l)*q(3)*pl**3+3*q(3)*q(6)*pl 


C-38 


**2+5*q(3)*q(4)*pl**2-(q(l)*q(2)*pl**2)-(q(l)*q(7)*pl)-(3*q(2)*q( 
6)*pl)-(4*q(2)*q(4)*pl)-(q(4)*q(7) ) ) ) 


t0<she*(12*q(l)**2*pl**8-(24*q(l)*q(6)*pl**7)+12*q(6)**2*pl**6+ 
36*q(2)**2*pl**6-(72*q(2)*q(7)*pl**5)+44*q(3)*q(7)*«k*pl**4-(12*q 
(6)**2*ek*pl**4)-(24*q(4)*q(6)*ek*pi**4)*44*q(3)*q(5)*ek*pl**4-( 
12*q(4) **2*ek*pl**4) +36*q(7) **2*pl**4+q(6) **2*ak**2*pl**2+2*q(4) * 
q(6)*ek**2*pl**2+q(4)**2*ek**2*pl**2-(44*q(7)**2*ak*pl**2)-(44*q( 
5)*q(7)*ek*pl**2)+7*q(7)**2*ek**2+14*q(5)*q(7)*«k**2+7*q(5)**2*«k 
**2)/6.0 

t0=t0+f«*(32*q(3)**2*pl**6+27*q(l)**2*pl**6-(10*q(l)*q(6) *pl** 
5)+44*q(l)*q(4)*pl**5-(132*q(2)*q(3)*pl**5)+68*q(3)*q(7)*pl**4-(9 
*q(6)**2*pl**4)-(28*q(4)*q(6)*pl**4)+8*q(4)**2*pl**4+81*q(2)**2* 
pl**4+2*q(l)*q(6)*ek*pl**3+2*q(l)*q(4)*ek*pl**3-(30*q(2)*q(7)*pl 
**3)-(16*q(3)*q(7)*ek*pl**2)+2*q(6)**2*ek*pl**2+6*q(4)*q(6)**k*pl 
**2-(16*q(3)*q(5)*ek*pl**2)+4*q(4)**2*ak*pl**2-(19*q(7)**2*pl**2) 
+6*q(2)*q(7)*ek*pl+6*q(2)*q(5)*ek*pl+10*q(7)**2*ek*10*q(5)*q(7)* 
ek)/6.0 

bmn2(2,2)=tO-(l . 0/3. 0*ej*ek*p 1**2* (8*q(l)*q(6)*pl**5+8*q(l)*q( 
4)*pl**5-(8*q(6)**2*pl**4)-(8*q(4)*q(6)*pl**4)+24*q(2)*q(7)*pl**3 
+24*q(2)*q(5)*pl**3+3*q(6)**2*ek*pl**2+6*q(4)*q(6)*ek*pl**2+3*q(4 
)**2*ek*pl**2-(24*q(7)**2*pl**2)-(24*q(5)*q(7)*pl**2)+8*q(7)**2* 
ek+16*q(5)*q(7)*ek+8*q(5)**2*ek))-(l .0/6.0*de*(5*q(3)**2*pl 
**4+6*q(l)**2*pl**4-(2*q(l)*q(6)*pl**3)+10*q(l)*q(4)*pl**3-(30*q( 
2)*q(3)*pl**3)+20*q(3)*q(7)*pl**2-(q(6)**2*pl**2)-(4*q(4)*q(6)*pl 
**2)+3*q(4)**2*pl**2+18*q(2)**2*pl**2-(6*q(2)*q(7)*pl)-(7*q(7)**2 
)))+4.0/3.0*el*ek**2*pl**4*((q(6)+q(4))**2*pl**2+4*(q(7)+q(5) 
)**2)+ae*(3*q(3)**2*pl**2+q(l)**2*pl**2-(3*q(2)*(2*q(3)*pl-q( 
2)))+2*q(l)*q(4)*pl+q(4)**2)/2.0 


t0*-(l. 0/3. 0*fe*pl*(ll*q(l)**2*p 1**6- (10*q(l)*q(6)*pl**5)+12*q 
(l)*q(4)*pl**5-(32*q(2)*q(3)*pl**5)+32*q(3)*q(7)*pl**4-(q(6)**2* 
pl**4)-(12*q(4)*q(6)*pl**4)+33*q(2)**2*pl**4+3*q(l)*q(6)*ek*pl**3 
+3*q(l)*q(4)*ek*pl**3-(34*q(2)*q(7)*pl**3)-(13*q(3)*q(7)*ek*pl**2 
)+q(6)**2*ek*pl**2+5*q(4)*q(6)*ek*pl**2-(13*q(3)*q(5)*ek*pl**2)*4 
*q(4)**2*ek*pl**2+q(7)**2*pl**2+8*q(2)*q(7)*«k*pl+8*q(2)*q(5)*ek* 
pl+5*q(7)**2*ek+5*q(5)*q(7)*ek) )+ha*ek*pl*(16*q(l)*q(6)*pl**5 
+16*q(l)*q(4)*pl**5-(48*q(3)*q(7)*pl**4)+16*q(4)*q(6)*pl**4-(48*q 
(3)*q(5)*pl**4)+16*q(4)**2*pl**4+44*q(2)*q(7)*pl**3+44*q(2)*q(5)* 
pl**3-(q(6)**2*ek*pl**2)-(2*q(4)*q(6)*ek*pl**2)-(q(4)**2*«k*pl**2 
)+4*q(7)**2*pl**2+4*q(5)*q(7)*pl**2-(7*q(7)**2*ek)-(14*q(5)*q(7)* 
ek)-(7*q(5)**2*ek))/6.0 

bmn2(2,3)*t0-(l .0/6.0*de*pl*(l2*q(3)**2*pl**4-(5*q(l)**2*pl** 
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4)+8*q(l)*q(6)*pl**3-(2*q(l)*q(4)*pl**3)+10*q(2)*q(3)*pl**3-(34*q 
(3)*q(7)*pl**2)+q(6)**2*pl**2+10*q(4)*q(6)*pl**2+4*q(4)**2*pl**2- 
(15*q(2)**2*pl**2)+20*q(2)*q(7)*pl+7*q(7)**2))-(2.0/3.0*aj*(q 
(7)+q(5))**2*ek**2*pl**3)-(l .0/2.0*ae*pi*(3*q(3)**2*pl**2+q(l 
)**2*pl**2-(3*q(2)*(2*q(3)*pl-q(2)))+2*q(l)*q(4)*pl+q(4)**2) ) 


tO=-(l .0/3.0*fa*pl*(12*q(l)*q(3)*pl**5-(12*q(3)*q(6)*pl**4)-( 
22*q(l)*q(2)*pl**4)+3*q(l)*q(3)*ak*pl**3*10*q(l)*q(7)*pi**3+14*q( 
2)*q(6)*pl**3-(8*q(2)*q(4)*pl**3)+5*q(3)*q(6)*ek*pl**2+8*q(3)*q(4 
)*ek*pl**2-(q(l)*q(2)*ak*pl**2)-(2*q(6)*q(7)*pl**2)+8*q(4)*q(7)* 
pl**2-(5*q(l)*q(7)*ek*pl)-(3*q(2)*q(6)*ek*pl)-(3*q(l)*q(5)*ak*pl) 
-(4*q(2)*q(4)*ek*pl)-(4*q(6)*q(7)*ek)-(9+q(4)*q(7)*ek)-(2*q(5)*q( 

6)  *ek) - (5*q(4) *q(S) *ak) ) ) 

t0!St0+he*ek*pl*(8*q(l)*q(3)*pl**5+8*q(3)*q(6)*pl**4+16*q(3)*q( 
4)*pl**4-(16*q(l)*q(7)*pl**3)-(12*q(2)*q(6)*pl**3)-(8*q(l)*q(5)* 
pl**3)-(12*q(2)*q(4)*pl**3)-(q(3)*q(6)*ek*pl**2)-(q(3)*q(4)*ek*pl 
**2)+4*q(6)*q(7)*pl**2-(12*q(4)*q(7)*pi**2)-(8*q(4)*q(5)*pH‘*2)+3 
*q(l)*q(7)*ak*pl+q(2)*q(6)*ak*pl+3*q(l)*q(5)*ek*pl+q(2)*q(4)*ek* 
pl+3*q(6)*q(7)*ek+6*q(4)*q(7)*ak+3*q(5)*q(6)*ek+6*q(4)*q(5)*ak)/ 
3.0-(8.0/3.0*ra*(q(6)+q(4))*(q(7)+q(5))*ek**3*pl**5)-(l .0/3.0 
*ej*ek*pl**3*(8*q(l)*q(2)*pl**4-(8*q(l)*q(7)*pl**3)-(8*q(2)*q 
(6)*pH‘*3)+8*q(6)*q(7)*pH>*2+5*q(l)*q(7)*ek*pl+6*q(2)*q(6)*ek*pl+ 
5*q(l)*q(5)*ek*pl+6*q(2)*q(4)*ek*pl-(15*q(6)*q(7)*ek)-(10*q(4)*q( 

7 )  *ek) - (9*q(5) *q(6) *ek) - (4*q(4)*q(5) *ek) ) ) 
bnn2(2,4)=t0+2.0/3.0*al*ak**2*pl**3*(6*q(l)*q(7)*pl**3+4*q(2)* 

q(6)*pl**3+6*q(l)*q(5)*pl**3+4*q(2)*q(4)*pl**3-(10*q(6)*q(7)*pl** 

2)-(4*q(4)*q(7)*pl**2)-(6*q(5)*q(6)*pl**2)+3*q(6)*q(7)*ak+3*q(4)* 

q(7)*ak+3*q(5)*q(6)*ak+3*q(4)*q(S)*ek)+de#pl*(q(l)*q(3)*pl** 

3-(5*q(3)*q(6)*pl**2)-(4*q(3)*q(4)*pl**2)-(5*q(l)*q(2)*pl**2)+4*q 

(l)*q(7)*pl+2*q(2)*q(6)*pl-(3*q(2)*q(4)*pl)+3*q(6)*q(7)+7*q(4)*q( 

7) )/3.0-(aa*(q(l)*pl+q(4) )*(q(3)*pl-q(2) )) 


t0*-(l .0/3.0*aj*ak*pl*(4*q(l)**2*pl**6-(8*q(l)*q(6)*pl**5)+4*q 

(6) **2*pl**4+12*q(2)**2*pl**4+5*q(l)*q(6)*ek*pl**3+5*q(l)*q(4)*ek 
*pl**3-(24*q(2)*q(7)*pl**3)+4*q(3)*q(7)*ek*pl**2-(7*q(6)**2*ek*pl 
**2)-(9*q(4)*q(6)*ak*pl**2)+4*q(3)*q(5)*ak*pl**2-(2*q(4)**2*ek*pl 
**2)+12*q(7)**2*pl**2+16*q(2)*q(7)*ak*pl+16*q(2)*q(5)*ak*pl-(20*q 

(7) **2*ak)-(20*q(5)*q(7)*®k)))+el*ek**2*pl*(12*q(l)*q(6)*pl** 
5+12*q(l)*q(4)*pl*i,5-(12*q(6)**2*pl**4)-(12*q(4)*q(6)*pl**4)+32*q 
(2)*q(7)*pl**3+32*q(2)*q(5)*pl**3+3*q(6)**2*ek*pl^*2+6*q(4)*q(6)* 
®k*pl**2+3*q(4)**2*ak*pl**2-(32*q(7)**2*pl**2)-(32*q(5)*q(7)*pl** 
2)+9*q(7)**2*ek+18*q(5)*q(7)*ek+9+q(5)**2*ek)/3.0 

bmn2(2,5)»t0-(l .0/3.0*ha*ak*(12*q(3)**2*pl**5+8*q(l)*q(6)*pH‘* 
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4+8*q(l)*q(4)*pl**4-(22*q(2)*q(3)*pl**4)-(2*q(3)*q(7)*pl**3)-(4*q 

(6) **2*pl**3)+4*q(4)**2*pl**3-(3*q(l)*q(6)*ek*pl**2)-(3*q(l)*q(4) 
*ek*pl**2)+22*q(2)*q(7)*pl**2+7*q(3)*q(7)*ek*pl-(3*q(4)*q(6)*ek* 
pl)+7*q(3)*q(5)*ek*pl-(3*q(4)**2*ek*pl)-(10*q(7)**2*pl)-(7*q(2)*q 

(7) *ek)-(7*q(2)*q(5)*ak)))+fe*ak*(13*q(3)**2*pl**3+q(l)**2*pl 
**3+4*q(l)*q(6)*pl**2+6*q(l)*q(4)*pl**2-(16*q(2)*q(3)*pi**2)-(10* 
q(3)*q(7)*pl)+4*q(4)*q(6)*pl+5*q(4)**2*pl+3*q(2)**2*pl+10*q(2)*q( 
7) )/6 .0-(4.0/3.0*re*ek**3*pi**3*((q(6)+q(4) )**2*pl**2+3*(q(7) 
+q(5) )**2) ) 


t0=-(1.0/3.0*he*pl*(12*q(l)*q(2)*pl**6-(8*q(l)*q(3)*ek*pl**5)- 

(12*q(l)*q(7)*pl**5)-(12*q(2)*q(6)*pl**5)-(8*q(3)*q(4)*ek*pl**4)+ 

12*q(6)*q(7)*pl**4+16*q(l)*q(7)*ek*pl**3+12*q(2)*q(6)*ek*pl**3+8* 

q(l)*q(5)*ek*pl**3+12*q(2)*q(4)*ak*pl**3+q(3)*q(6)*ek**2*pl**2+q( 

3)*q(4)*ek**2*pl**2-(20*q(6)*q(7)*ek*pl**2)-(4*q(4)*q(7)*ek*pl**2 

)-(8*q(5)*q(6)*ek*pl**2)-(3*q(l)*q(7)*ek**2*pl)-(q(2)*q(6)*ek**2* 

pl)-(3*q(l)*q(5)*ek**2*pl)-(q(2)*q(4)*ek**2*pl)-(3*q(4)*q(7)*ek** 

2)-(3*q(4)*q(5)*ek**2))) 

t0=t0+fe*pl*(10*q(l)*q(3)*pl**5+2*q(3)*q(6)*pl**4+12*q(3)*q(4) 

*pl**4-(5*q(l)*q(2)*pl**4)-(3*q(l)*q(3)*ek*pl**3)-(5*q(l)*q(7)*pl 

**3)-(9*q(2)*q(6)*pl**3)-(14*q(2)*q(4)*pl**3)-(2*q(3)*q(6)*ek*pl 

**2)-(5*q(3)*q(4)*ek*pl**2)+q(l)*q(2)*ek*pl**2+7*q(6)*q(7)*pl**2+ 

2*q(4)*q(7)*pl**2+4*q(l)*q(7)*ek*pl+2*q(2)*q(6)*ek*pl+2*q(l)*q(5) 

*ek*pl+3*q(2)*q(4)*ek*pi+4*q(4)*q(7)*ek+2*q(4)*q(5)*ek)/3.0-(8.0/ 

3.0*re*(q(6)+q(4))*(q(7)+q(5))*ek**3*pl**5)-(1.0/3.0*ej* 

ek*pl**3*(8*q(l)*q(2)*pl**4-(16*q(l)*q(7)*pl**3)-(16*q(2)*q(6)*pl 

**3)-(8*q(l)*q(5)*pl**3)-(8*q(2)*q(4)*pl**3)+24*q(6)*q(7)*pl**2+8 

*q(4)*q(7)*pl**2+8*q(5)*q(6)*pl**2+5*q(l)*q(7)*ek*pl+6*q(2)*q(6)* 

ek*pl+5*q(l)*q(5)*ak*pl+6*q(2)*q(4)*ek*pl-(20*q(6)*q(7)*ek)-(15*q 

(4)*q(7)*ak)-(14*q(5)*q(6)*ak)-(9*q(4)*q(5)*ek))) 

bmn2(2,6)=t0+2.0/3.0*el*ek**2*pl**3*(6*q(l)*q(7)*pl**3+4*q(2)* 
q(6)*pl**3+6*q(l)*q(5)*pl**3+4*q(2)*q(4)*pi**3-(16*q(6)*q(7)*pl** 
2)-(10*q(4)*q(7)*pl**2)-(12*q(5)*q(6)*pl**2)-(6*q(4)*q(5)*pl**2)+ 
3*q(6)*q(7)*ek+3*q(4)*q(7)*ek+3*q(5)*q(6)*ak+3*q(4)*q(5)*ek)-(1.0 
/3.0*de*pl*(4*q(l)*q(3)*pl**3+q(3)*q(6)*pl**2+5*q(3)*q(4)*pl 
**2-(q(l)*q(2)*pl**2)-(3*q(l)*q(7)*pl)-(q(2)*q(6)*pl)-(2*q(2)*q(4 
)*pl)-(3*q(4)*q(7) ) ) ) 


tO=-(l .0/3.0*he*(6*q(l)**2*pl**7-(12*q(l)*q(6)*pl**6)+12*q(3) 
**2*ek*pl**5+6*q(6)*1*2*pl**5+18*q(2)**2*pl*1*5+16*q(l)*q(6)*ek*pl 
**4+16*q(l)*q(4)*ek*pl**4-(22*q(2)*q(3)*ek*pl**4)-(36*q(2)*q(7)* 
pl**4)-(4*q(3)*q(7)*ak*pl**3)-(10*q(6)**2*ek*pl**3)-(4*q(4)*q(6)* 
ek*pl**3)-(2*q(3)*q(5)*ak*pl**3)+6*q(4)**2*ek*pl**3+18*q(7)**2*pl 
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.  **3-(3*q(l)*q(6)*ek**2*pl**2)-(3*q(l)*q(4)*ek**2*pl**2)+44*q(2)*q 
.  (7)*ek*pl**2+22*q(2)*q(5)*ek*pl**2+7*q(3)*q(7)*ek**2*pl-(3*q(4)*q 
.  (6)*ek**2*pl)+7*q(3)*q(5)*ek**2*pl-(3*q(4)**2*9k**2*pl)-(30*q(7) 

•  **2*ek*pl)-(20*q(5)*q(7)*ek*pl)-(7*q(2)*q(7)*ek**2)-(7*q(2)*q(5)* 
.  ek**2))) 

tO=tO~( 1.0/3. 0*ej*ek*pl* (4*q(l)**2*pl**6- (16*q(l)*q(6) *pl**5)- 

.  (8*q(l)*q(4)*pi**5)+12*q(6)**2*pl**4+8*q(4)*q(6)*pl**4+12*q(2)**2 
.  *pl**4+5*q(l)*q(6)*ek*pl**3+5*q(l)*q(4)*ek*pl**3-(48*q(2)*q(7)*pl 
.  **3)-(24*q(2)*q(5)*pl**3)+4*q(3)*q(7)*ek*pl**2-(10*q(6)**2*ek*pl 
.  **2)-(15*q(4)*q(6)*ek*pl**2)+4*q(3)*q(5)*ek*pl**2-(5*q(4)**2*ek* 

.  pl**2)+36*q(7)**2*pl**2+24*q(5)*q(7)*pl**2+16*q(2)*q(7)*ek*pl+16* 
.  q(2)*q(5)*ek*pl-(30*q(7)**2*ek)-(40*q(5)*q(7)*ek)-(10*q(5)**2*ek) 

.  )) 

t0=tQ+el*ak**2*pl*(12*q(l)*q(6)*pl**5+12*q(l)*q(4)*pl**5-(16*q 
.  (6)**2*pl**4)-(20*q(4)*q(6)*pl**4)-(4*q(4)**2*pl**4)+32*q(2)*q(7) 

.  *pl**3+32*q(2)*q(5)*pl**3+3*q(6)**2*ek*pl**2+6*q(4)*q(6)*ek*pl**2 
.  +3*q(4)**2*ek*pl**2-(48*q(7)**2*pl**2)-(64*q(5)*q(7)*pl**2)-(l6*q 
.  (5)**2*pl**2)+9*q(7)**2*ek+18*q(5)*q(7)*ek+9*q(5)**2*ek)/3.0 
bmn2(2,7)=t0-(l .0/6 .0*f e*(32*q(3)**2*pl**5+5*q(l)**2*pl**5+10* 

.  q(l)*q(6)*pl**4+20*q(l)*q(4)*pl**4-(68*q(2)*q(3)*pl**4)-(13*q(3) 

.  **2*ek*pl**3)-(q(l)**2*ek*pl**3)+4*q(3)*q(7)*pl**3-(7*q(6)**2*pl 
.  **3)-(4*q(4)*q(6)*pl**3)+8*q(4)**2*pl**3+15*q(2)**2*pl**3-(8*q(l) 

.  *q(6)*ek*pi**2)-(10*q(l)*q(4)*ak*pl**2)+16*q(2)*q(3)*ek*pl**2+38* 

.  q(2)*q(7)*pl**2+20*q(3)*q(7)*ek*pl-(8*q(4)*q(6)*ek*pl)+10*q(3)*q( 

.  5)*ek*pl-(9*q(4)**2*ek*pl)-(3*q(2)**2*ek*pl)-(21*q(7)**2*pl)-(20* 

.  q(2)*q(7)*ek)-(10*q(2)*q(5)*ek) ))+de*(l7*q(3)**2*pl**3+q(l) 

.  **2*pl**3+6*q(l)*q(6)*pl**2+8*q(l)*q(4)*pl**2-(20*q(2)*q(3)*pl**2 
.  )-(l4*q(3)*q(7)*pl)+6*q(4)*q(6)*pl+7*q(4)**2*pl+3*q(2)**2*pl+14*q 
.  (2)*q(7))/6.0-(4.0/3.0*re*ek**3*pl**3*((q(6)+q(4))**2*pl**2+3 

•  *(q(7)+q(5))**2)) 


t0=fe*pl**2*(4*q(l)**2*pl**6-(8*q(l)*q(6)*pl**5)+4*q(6)**2*pl 
.  **4+16*q(2)**2*pl**4+5*q(l)*q(6)*ek*pl**3+5*q(l)*q(4)*ek*pl**3-( 

.  32*q(2)*q(7)*pl**3)-(18*q(3)*q(7)*ak*pl**2)+q(6)**2*ek*pl**2+7*q( 
.  4)*q(6)*ek*pl**2-(18*q(3)*q(5)*ak*pl**2)+6*q(4)**2*ek*pl**2+16*q( 
.  7)**2*pl**2+13*q(2)*q(7)*ek*pl+13*q(2)*q(5)*ek*pl+5*q(7)**2*ek+5* 
.  q(5)*q(7)*ek)/3.0-(l .0/6.0*ha*ek*pl**2*(l6*q(l)*q(6)*pl**5+16 
.  *q( 1 ) *q(4) *p 1**5- ( 16*q(6) **2*pl**4) -(16*q(4)*q(6)*p 1**4) +48*q(2)* 
.  q(7)*pl**3+48*q(2)*q(5)*pl**3-(q(6)**2*ek*pl**2)-(2*q(4)*q(6)*ek* 
.  pl**2)-(q(4)**2*ek*pl**2)-(48*q(7)**2*pl**2)-(48*q(5)*q(7)*pl**2) 
.  -(7*q(7)**2*ek)-(14*q(5)*q(7)*ek)-(7*q(5)**2*ek))) 
bmn2(3,3)=t0+de*pl**2*(36*q(3)**2*pl**4-(3*q(l)**2*pl**4)+14* 

.  q(l)*q(6)*pl**3+8*q(l)*q(4)*pl**3-(24*q(2)*q(3)*pi**3)-(48*q(3)*q 
.  (7)*pl**2)+q(6)**2*pl**2+16*q(4)*q(6)*pl**2+12*q(4)**2*pl**2- (5*q 
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(2)**2*pi**2)+34*q(2)*q(7)*pi+7*q(7)**2)/6.0+4.0/3.0*aj*ak**2 

*pl**4*((q(6)4q(4))**2*pl**2+4*(q(7)+q(5))**2)+ae*pl**2*(3*q( 

3)**2*pl**2+q(l)**2*pl**2-(3*q(2)*(2*q(3)*pl-q(2)))+2*q(l)*q(4)* 

pl+q(4)**2)/2.0 


tO=- (1 .0/3 . 0*ha*ek*pl**2* (8*q( 1 ) *q(3) *pl**5- (8*q(3) *q(6)*pl**4 
)-(8*q(l)*q(2)*pl**4)-(8*q(l)*q(7)*pl**3)-(8*q(2)*q(6)*pl**3)-(8* 
q(l)*q(5)*pl**3)-(16*q(2)*q(4)*pl**3)-(q(3)*q(6)*ek*pl**2)-(q(3)* 
q(4)*ak*pl**2)+24*q(6)*q(7)*pl**2+16*q(4)*q(7)*pl**2+8*q(5)*q(6)* 
pl**2+3*q(l)*q(7)*ek*pl+q(2)*q(6)*ek*pl+3*q(l)*q(5)*ek*pl+q(2)*q( 
4)*ek*pl+3*q(6)*q(7)*ek+6*q(4)*q(7)*ak+3*q(5)*q(6)*ek+6*q(4)*q(5) 
*ek))-(l .0/3.0*f e*pl**2*(12*q(l)*q(2)*pl**4-(5*q(l)*q(3)*ek* 
pl**3)-(12*q(l)*q(7)*pl**3)-(12*q(2)*q(6)*pl**3)-(7*q(3)*q(6)*ek* 
pl**2)-(12*q(3)*q(4)*ek*pl**2)+3*q(i)*q(2)*ak*pl**2+12*q(6)*q(7)* 
pl**2+6*q(l)*q(7)*ek*pl+5*q(2)*q(6)*ek*pl+4*q(l)*q(5)*ek*pl+8*q(2 
)*q(4)*ak*pl+4*q(6)*q(7)*ek+10*q(4)*q(7)*ek+2*q(5)*q(6)*ak+6*q(4) 
*q(5)*ek)) 

bmn2(3,4)=t0-(8.0/3.0*el*(q(6)+q(4))*(q(7)+q(5))*ek**3*pl**4)+ 
da*pl**2*(4*q(l)*q(3)*pl**3+8*q(3)*q(6)*pl**2+12*q(3)*q(4)* 
pl**2+q(l)*q(2)*pl**2-(5*q(l)*q(7)*pl)-(5*q(2)*q(6)*pl)-(4*q(2)*q 
(4)*pl)-(3*q(6)*q(7))-(8*q(4)*q(7)))/3.0+2.0/3.0*ej*ek**2*pl 
**4*(4*q(3)*q(6)*pl**2+4*q(3)*q(4)*pl**2-(q(l)*q(7)*pl)-(q(l)*q(5 
)*pl)-(15*q(6)*q(7) )-(16*q(4)*q(7) )-(ll*q(5)*q(6) )-(12*q(4)*q(5) ) 
)+ae*pl*(q(l)*pl+q(4) )*(q(3)*pl-q(2)) 


t0=he*ek*pl*(3*q(l)**2*pl**5+2*q(l)*q(6)*pl**4+8*q(l)*q(4)*pl 
**4-(24*q(2)*q(3)*pl**4) +24*q(3) *q(7) *pl**3- (5*q(6) **2*pl**3) - (8* 
q(4)*q(6)*pl**3)+ll*q(2)**2*pl**3-(3*q(l)*q(6)*ak*pl**2)-(3*q(l)* 
q(4)*ek*pl**2)+2*q(2)*q(7)*pl**2+7*q(3)*q(7)*ek*pl-(3*q(4)*q(6)* 
ek*pl)+7*q(3)*q(5)*ek*pl-(3*q(4)**2*ak*pl)-(13*q(7)**2*pl)-(7*q(2 
)*q(7)*ek)-(7*q(2)*q(5)*ek))/3 .0- (2.0/3. 0*ej*ek**2*pl**2*(q(l 
)*q(6)*pl**3+q(l)*q(4)*pl**3-(l6*q(3)*q(7)*pl**2)+5*q(6)**2*pl**2 
+ll*q(4)*q(6)*pl**2-(16*q(3)*q(5)*pl**2)+6*q(4)**2*pl**2+2*q(2)*q 
(7)*pl+2*q(2)*q(5)*pl+14*q(7)**2+14*q(5)*q(7))) 
bmn2(3 ,5)=t0-(l .0/3.0*f e*ek*pl*(9*q(3)**2*pl**3+q(l)**2*pl**3+ 
2*q(l)*q(6)*pl**2+4*q(l)*q(4)*pl**2-(13*q(2)*q(3)*pl**2)-(5*q(3)* 
q(7)*pl)+2*q(4)*q(6)*pl+3*q(4)**2*pl+4*q(2)**2*pl+5*q(2)*q(7)))-( 
4.0/3.0*el*ek**3*pl**2*((q(6)+q(4) )**2*pl**2+3*(q(7)+q(5))**2 
)) 


t0=-(l .0/3.0*f e*pl**2*(8*q(l)*q(3)*pl**5-(8*q(3)*q(6)*pl**4)-( 
10*q(l)*q(2)*pl**4)-(5*q(l)*q(3)*ek*pl**3)+2*q(l)*q(7)*pl**3-(2*q 
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(2)*q(6)*pl**3)-(12*q(2)  *q(4)*pl**3)-(2*q(3)*q(6)*ek*pl**2)-(7*q( 
3)*q(4)*ak*pl**2)+3*q(l)*q(2)*ek*pl**2+10*q(6)*q(7)*pi**2+i2*q(4) 
*q(7)*pl**2+4*q(l)*q(7)*ak*pl+2*q(2)*q(6)*ek*pl+2*q(l)*q(5)*ek*pl 
+5*q(2)*q(4)*ek*pl+4*q(4)*q(7)*ek+2*q(4)*q(5)*ek))-(l .0/3.0*ha 
*ek*pl**2*(8*q(l)*q(3)*pl**5-(16*q(3)*q(6)*pl**4)-(8*q(3)*q(4)* 
pl**4)-(8*q(l)*q(2)*pl**4)-(2*q(l)*q(7)*pl**3)-(2*q(l)*q(5)*pl**3 
)-(8*q(2)*q(4)*pl**3)-(q(3)*q(6)*ek*pl**2)-(q(3)*q(4)*ek*pi**2)+ 
26*q(6)*q(7)*pl**2+24*q(4)*q(7)*pl**2+10*q(5)*q(6)*pl**2+8*q(4)*q 
(5)*pl**2+3*q(l)*q(7)*ek*pl+q(2)*q(6)*ek*pl+3*q(l)*q(5)*ek*pl+q(2 
)*q(4)*ek*pl+3*q(4)*q(7)*ek+3*q(4)*q(5)*ek)) 
bmn2(3,6)=t0-(8.0/3.0*eH<(q(6)+q(4))*(q(7)+q(5))*ek**3*pl**4)+ 
de*pl**2*(7*q(l)*q(3)*pl**3+q(3)*q(6)*pl**2+8*q(3)*q(4)*pl** 
2-(4*q(l)*q(2)*pl**2)-(3*q(l)*q(7)*pl)-(q(2)*q(6)*pl)-(5*q(2)*q(4 
)*pl)-(3*q(4)*q(7)))/3.0+2.0/3 .0*ej*ak**2*pl**4*(4*q(3)*q(6)* 
pl**2+4*q(3)*q(4)*pl**2-(q(l)*q(7)*pl)-(q(l)*q(5)*pl)-(l4*q(6)*q( 
7) )-(l5*q(4)*q(7) )-(10*q(5)*q(6) )-(ll*q(4)*q(5) )) 


t0=fe*pl*(7*q(l)**2*pl**5-(2*q(l)*q(6)*pl**4)+12*q(l)*q(4)*pl 

**4-(32*q(2)*q(3)*pl**4)-(9*q(3)**2*ek*pl**3)-(q(l)**2*ek*pl**3)+ 

32*q(3)*q(7)*pl**3-(5*q(6)**2*pl**3)-(12*q(4)*q(6)*pl**3)+17*q(2) 

**2*pl**3-(4*q(l)*q(6)*ek*pl**2)-(6*q(l)*q(4)*ek*pl**2)+13*q(2)*q 

(3)*ek*pl**2-(2*q(2)*q(7)*pl**2)+10*q(3)*q(7)*ek*pl-(4*q(4)*q(6)* 

ek*pl)+5*q(3)*q(5)*ek*pl-(5*q(4)**2*ek*pl)-(4*q(2)**2*ek*pl)-(15* 

q(7)**2*pl)-(10*q(2)*q(7)*ek)-(5*q(2)*q(5)*ek))/3.0 

tO=tO+he*ak*pi* (3*q( 1) **2*pl**5+2*q( 1) *q (6) *pl**4+8*q( 1 ) *q(4)  * 
pl**4-(24*q(2)*q(3)*pl**4)+48*q(3)*q(7)*pl**3-(13*q(6)**2*pl**3)- 
(24*q(4)*q(6)*pl**3)+24*q(3)*q(5)*pl**3-(8*q(4)**2*pl**3)+ll*q(2) 
**2*pl**3-(3*q(l)*q(6)*ek*pl**2)-(3*q(l)*q(4)*ek*pl**2)+4*q(2)*q( 
7)*pl**2+2*q(2)*q(5)*pl**2+7*q(3)*q(7)*ek*pl-(3*q(4)*q(6)*ek*pl)+ 
7*q(3)*q(5)*ek*pl-(3*q(4)**2*ek*pl)-(39*q(7)**2*pl)-(26*q(5)*q(7) 
*pl)-(7*q(2)*q(7)*ek)-(7*q(2)*q(5)*ek))/3.0-(2.0/3.0*ej*ek**2 
*pl**2*(q(l)*q(6)*pl**3+q(l)*q(4)*pi**3-(16*q(3)*q(7)*pl**2)+7*q( 
6)**2*pl**2+15*q(4)*q(6)*pl**2-(16*q(3)*q(5)*pl**2)+8*q(4)**2*pl 
**2+2*q(2)*q(7)*pl+2*q(2)*q(5)*pl+21*q(7)**2+28*q(5)*q(7)+7*q(5) 
**2) ) 

bmn2(3,7)=t0-(l .0/3.0*de*pl*(12*q(3)**2*pl**3+q(l)**2*pl**3+3 
*q(l)*q(6)*pl**2+5*q(l)*q(4)*pl**2-(17*q(2)*q(3)*pi**2)-(7*q(3)*q 
(7)*pl)+3*q(4)*q(6)*pl+4*q(4)**2*pl+5*q(2)**2*pl+7*q(2)*q(7)))-( 
4.0/3 .0*el*ak**3*pl**2*( (q(6)+q(4))**2*pl**2+3*(q(7)+q(5))**2 
)) 


t0=-(l .0/6.0*he*ek*(44*q(l)**2*pl**6+56*q(l)*q(6)*pl**5+144*q( 
l)*q(4)*pl**5-(32*q(2)*q(3)*pl**5)-(q(3)**2*ek*pl**4)-(7*q(l)**2* 
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ek*pl**4)+32*q(3)*q(7)*pl**4-(100*q(6)**2*pl**4)-(144*q(4)*q(6)* 

pl**4)+12*q(2)**2*pl**4-(28*q(l)*q(6)*ek*pl**3)-(42*q(l)*q(4)*ek* 

pl**3)+2*q(2)*q(3)*ek*pl**3+24*q(2)*q(7)*pl**3+16*q(2)*q(S)*pl**3 

+12*q(3)*q(7)*ak*pl**2-(7*q(6)**2*ek*pl**2)-(42*q(4)*q(6)*ek*pl** 

2)+12*q(3)*q(5)*ak*pl**2-(42*q(4)**2*ek*pl**2)-(q(2)**2*ek*pl**2) 

-(36*q(7)**2*pl**2)-(16*q(5)*q(7)*pl**2)-(12*q(2)*q(7)*ek*pi)-(12 

*q(2)*q(5)*ek*pl)-(q(7)**2*ek)-(2*q(5)*q(7)*ek)-(q(5)**2*ek))) 

t0=t0+fe*(16*q(l)**2*pl**6-(32*q(l)*q(6)*pl**5)+6*q(3)**2*ek* 
pl**4+8*q(l)**2*ak*pl**4+16*q(6)**2*pl**4+4*q(2)**2*pl**4+23*q(l) 
*q(6) *ek*pl**3+39*q( 1) *q(4) *ek*pl**3- (8*q(2) *q(3) *ek*pl**3) - (8*q( 
2) *q(7) *pl**3) - ( 10*q(3) *q(7) *ek*pl**2) +5*q(6) **2*ek*pl**2+33*q(4) 
*q(6)*ak*pl**2-(6*q(3)*q(5)*ek*pl**2)+36*q(4)**2*ek*pl**2+2*q(2) 
**2*ek*pl**2+4*q(7)**2*pl**2+9*q(2)*q(7)*ek*pl+5*q(2)*q(5)*ek*pl+ 
q(7)**2*ek+q(5)*q(7)*ek)/3.0 

t0=t0+2.0/3.0*el*ak**2*pl**2*(8*q(l)**2*pl**6-(16*q(l)*q(6)*pl 
**5)+8*q(6)**2*pl**4+2*q(2)**2*pl**4+9*q(l)*q(6)*ek*pl**3+9*q(l)* 
q(4)*ek*pl**3-(4*q(2)*q(7)*pl**3)-(4*q(3)*q(7)*ek*pl**2)+15*q(6) 
**2*ek*pl**2+39*q(4)*q(6)*ek*pl**2-(4*q(3)*q(5)*ek*pl**2)+24*q(4) 
**2*ek*pl**2+2*q(7)**2*pl**2+3*q(2)*q(7)*ek*pl+3*q(2)*q(5)*ek*pl+ 
5*q(7) **2*ek+9*q(5) *q(7) *ek+4*q(5) **2*ek) - (1 . 0/6 . 0*re*ek**3* 
pl**2*(48*q(l)*q(6)*pl**5+48*q(l)*q(4)*pl**5-(48*q(6)**2*pl**4)-( 
48*q(4)*q(6)*pl**4)+16*q(2)*q(7)*pl**3+16*q(2)*q(5)*pl**3-(9*q(6) 
**2*ak*pl**2)-(18*q(4)*q(6)*ek*pl**2)-(9*q(4)**2*ek*pl**2)-(16*q( 
7)**2*pl**2)-(16*q(5)*q(7)*pl**2)-(3*q(7)**2*ek)-(6*q(5)*q(7)*ak) 
- (3*q(5) **2*ek) ) ) 

bmn2(4,4)=t0+de*(12*q(3)**2*pl**4-(5*q(l)**2*pl**4)+34*q(l)*q 

(6)*pl**3+24*q(l)*q(4)*pl**3-(8*q(2)*q(3)*pl**3)-(16*q(3)*q(7)*pl 

**2)+7*q(6)**2*pl**2+48*q(4)*q(6)*pl**2+36*q(4)**2*pl**2-(3*q(2) 

**2*pl**2)+14*q(2)*q(7)*pl+q(7)**2)/6.0+ej*ek**2*pl**2*(4*q(3 

)**2*pl**4-(8*q(l)**2*pl**4)+28*q(l)*q(6)*pl**3+12*q(l)*q(4)*pl** 

3-(32*q(3)*q(7)*pl**2)+76*q(6)**2*pl**2+180*q(4)*q(6)*pl**2-(24*q 

(3)*q(5)*pl**2)+96*q(4)**2*pl**2-(3*q(2)**2*pl**2)+10*q(2)*q(7)* 

pl+4*q(2)*q(5)*pl+25*q(7)**2+28*q(5)*q(7)+4*q(5)**2)/3.0+2*te 

*ek**4*pl**4*(3*(q(6)+q(4))**2*pl**2+(q(7)+q(5))**2)+ae*(q(3) 

**2*pl**2+3*q(l)**2*pl**2-(q(2)*(2*q(3)*pl-q(2)))+6*q(l)*q(4)*pl+ 

3*q(4)**2)/2.0 


t0=he*<-  ^*(8*q(l)*q(3)*pl**5-(8*q(3)*q(6)*pl**4)-(8*q(l)*q(2)* 
p 1**4) -(3*q(l)*q(3)*ek*pl**3)-(8*q(2)*q(4)*p 1**3) -(3*q(3)*q(6)*ek 
*pl**2)-(6*q(3)*q(4)*ek*pl**2)+3*q(l)*q(2)*ek*pl**2+8*q(6)*q(7)* 
pl**2+8*q(4)*q(7)*pl**2+q(l)*q(7)*ek*pl+3*q(2)*q(6)*ek*pl+q(l)*q( 
5)*ek*pl+6*q(2)*q(4)*ek*pl+q(4)*q(7)*ek+q(4)*q(5)*ek)/3. 0+2. 0/3.0 
*el*ek**2*pl**2*(6*q(l)*q(2)*pl**4-(6*q(l)*q(7)*pl**3)-(6*q(2 
)*q(6)*pl**3)-(4*q(3)*q(6)*ak*pl**2)-(4*q(3)*q(4)*ek*pl**2)+6*q(6 
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)*q(7)*pl**2+3*q(l)*q(7)*ak*pl+3*q(2)*q(6)*ak*pl+3*q(i)*q(5)*ek* 
pl+3*q(2)*q(4)*ek*pl+6*q(6)*q(7)*ek+9*q(4)*q(7)*ek+5*q(5)*q(6)*ek 
+8*q(4)*q(5)*ek)+4*te*(q(6)+q(4))*(q(7)+q(5))*ak**4*pl**4 
bmn2(4,5)=t0-(l .0/3.0*re*ek**3*pl**2*(8*q(l)*q(7)*pl**3+8*q(2) 
*q(6) *pl**3+8*q(l) *q(5) *pl**3+8*q(2) *q(4)*pl**3- (16*q(6) *q(7) *pl 
**2)-(8*q(4)*q(7)*pl**2)-(8*q(5)*q(6)*pl**2)-(3*q(6)*q(7)*ek)-(3* 
q(4)*q(7)*ek)-(3*q(5)*q(6)*ek)-(3*q(4)*q(5)*ek)))-(l .0/3.0*f e 
*ek*(4*q(l)*q(3)*pl**3+2*q(3)*q(6)*pl**2+6*q(3)*q(4)*pl**2-(3*q(l 
)*q(2)*pl**2)-(q(l)*q(7)*pl)-(2*q(2)*q(6)*pl)-(5*q(2)*q(4)*pl)-(q 
(4)*q(7))))-(l .0/3.0*ej*ek**2*pl**2*(2*q(l)*q(3)*pl**3+22*q(3 
)*q(6)*pl**2+24*q(3)*q(4)*pl**2+5*q(l)*q(2)*pl**2-(7*q(l)*q(7)*pl 
)-(9*q(2)*q(6)*pl)-(4*q(2)*q(4)*pl)-(21*q(6)*q(7))-(28*q(4)*q(7)) 
-(8*q(5)*q(6))-(8*q(4)*q(5) )) ) 


t0=el*ak**2*pl**2*(16*q(l)**2*pi**6-(64*q(l)*q(6)*pH‘*5)-(32*q 
(l)*q(4)*pl«!*5)+48*q(6)**2*pl**4+32*q(4)*q(6)*pl**4+4*q(2)**2*pl 
**4+18*q(l)*q(6)*ek*pl**3+18*q(l)*q(4)*ek*pl**3-(20*q(2)*q(7)*pl 
**3)-(12*q(2)*q(5)*pl**3)-(8*q(3)*q(7)*ek*pl**2)+21*q(6)**2*ek*pl 
**2+60*q(4)*q(6)*ek*pl**2-(8*q(3)*q(5)*ak*pl**2)+39*q(4)**2*ek*pl 
**2+16*q(7)**2*pl**2+12*q(5)*q(7)*pl**2+6*q(2)*q(7)*ek*pl+6*q(2)* 
q(5)*ek*pl+7*q(7)**2*ek+12*q(5)*q(7)*ak+5*q(5)**2*ek)/3.0 
t0=t0+ej*ek*pl**2*(12*q(l)**2*pl**6-(24*q(l)*q(6)*pl**5)+4*q(3 
)**2*ek*pl**4-(8*q(l)**2*ek*pl**4)+l2*q(6)**2*pl**4+4*q(2)**2*pl 
**4+44*q(l)*q(6)*ek*pl**3+28*q(l)*q(4)*ek*pl**3-(8*q(2)*q(7)*pl** 
3)-(30*q(3)*q(7)*ek*pl**2)+54*q(6)**2*ek*pl**2+152*q(4)*q(6)*ek* 
pl**2-(22*q(3)*q(5)*ak*pl**2)+90*q(4)**2*ek*pl**2-(3*q(2)**2*ek* 
pl**2)+4*q(7)**2*pl**2+15*q(2)*q(7)*ek*pl+9*q(2)*q(5)*ek*pl+18*q( 
7)**2*ek+21*q(5)*q(7)*ek+4*q(5)**2*ek)/3.0 
tO=tO- ( 1 . 0/6 . 0*re*ek**3*pl**2* (48*q( 1 ) *q(6) *pl**5+48*q( i) *q(4) 
*pl**5-(72*q(6)**2*pl**4)-(96*q(4)*q(6)*pl**4)-(24*q(4)**2*pl**4) 
+16*q(2)*q(7)*pl**3+16*q(2)*q(5)*pl**3-(9*q(6)**2*ek*pl**2)-(18*q 
(4)*q(6)*ek*pl**2)-(9*q(4)**2*ek*pl**2)-(24*q(7)**2*pl**2)-(32*q( 
5)*q(7)*pl**2)-(8*q(5)**2*pl**2)-(3*q(7)**2*ak)-(6*q(5)*q(7)*ek)- 
(3*q(5)**2*ek))) 

t0=t0+he*ek*pl*(8*q(3)>M'2*pl**5-(44*q(l)**2*pl**5)+32*q(l)*q(6 
) *p 1**4- (56*q(l)*q(4)*pl**4)+16*q(2)*q(3)*pl**4+q(3)**2*ek*p 1**3+ 
7*q(l)**2*ek*pl**3-(48*q(3)*q(7)*pl**3)+84*q(6)**2*pl**3+200*q(4) 
*q(6)*pl**3-(16*q(3)*q(5)*pl**3)+72*q(4)**2*pl**3-(12*q(2)**2*pl 
**3)+14*q(l)*q(6)*ek*pl**2+28*q(l)*q(4)*ek*pl**2-(2*q(2)*q(3)*ek* 
pl**2)+8*q(2)*q(7)*pl**2-(6*q(3)*q(7)*ek*pl)+14*q(4)*q(6)*ek*pi-( 
6*q(3)*q(5)*ek*pl)+21*q(4)**2*ak*pl+q(2)**2*ek*pi+28*q(7)**2*pl+ 
16*q(5)*q(7)*pl+6*q(2)*q(7)*ek+6*q(2)*q(5)*ek)/6.0 
bmn2(4 ,6) =t0- ( 1 . 0/6 . 0*f e*pl* (34*q( l)**2*pl**5- (4*q( 1) *q(6) *pl 
**4)+64*q(l)*q(4)*pl**4-(24*q(2)*q(3)*pl**4)-(7*q(3)**2*ek*pl**3) 
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-(13*q(l)**2*ek*pl**3)+24*q(3)*q(7)*pl**3-(30*q(6)**2*pl**3)-(64* 

q(4)*q(6)*pl**3)+14*q(2)**2*pl**3-(20*q(l)*q(6)*ek*pl**2)-(46*q(i 

)*q(4)*ek*pl**2)+10*q(2)*q(3)*ek*pl**2-(4*q(2)*q(7)*pl**2)+8*q(3) 

*q(7)*ek*p  1-  (20*q(4) *q(6)  *ek*pl )  +4*q(3) *q(5) *ek*pl- (33*q(4)  **2*ek 

*pl)-(3*q(2)**2*ek*pl)-(10*q(7)**2*pi)-(8*q(2)*q(7)*ek)-(4*q(2)*q 

(5)*ek)))+de*pl*(4*q(3)**2*pl**3+5*q(l)**2*pl**3+7*q(l)*q(6) 

*pl**2+17*q(l)*q(4)*pl**2-(5*q(2)*q(3)*pl**2)-(3*q(3)*q(7)*pl)+7* 

q(4)*q(6)*pl+12*q(4)**2*pl+q(2)**2*pi+3*q(2)*q(7))/3.0+2*te* 

ek**4*pl**4*(3*(q(6)+q(4) )**2*pl**2+(q(7)+q(5))**2) 


t0=fe*(12*q(l)*q(3)*pl**5-(12*q(3)*q(6)*pl**4)-(10*q(l)*q(2)* 
pl**4)-(6*q(l)*q(3)*ek*pl**3)-(2*q(l)*q(7)*pl**3)+2*q(2)*q(6)*pl 
**3-(8*q(2)*q(4)*pl**3)-(4*q(3)*q(6)*ek*pl**2)-(10*q(3)*q(4)*ak* 
pl**2)+5*q(l)*q(2)*ek*pl**2+10*q(6)*q(7)*pl**2+8*q(4)*q(7)*pl**2+ 
2*q(l)*q(7)*ek*pl+4*q(2)*q(6)*ek*pl+q(l)*q(5)*«k*pl+9*q(2)*q(4)* 
ek*pl+2*q(4)*q(7)*ek+q(4)*q(5)*ek)/3.0 
t0=t0+he*ek*(8*q(l)*q(3)*pl**5-(24*q(3)*q(6)*pl**4)-(l6*q(3)*q 
(4)*pl**4)-(16*q(l)*q(2)*pl**4)-(3*q(l)*q(3)*ek*pl**3)+8*q(l)*q(7 
)*pl**3+4*q(2)*q(6)*pl**3-(12*q(2) *q(4)*pl**3)-(3*q(3)*q(6)*ek*pl 
**2)-(6*q(3)*q(4)*ek*pl**2)+3*q(l)*q(2)*ek*pl**2+28*q(6)*q(7)*pl 
**2+36*q(4)*q(7)*pl**2*8*q(5)*q(6) *pl**2+8*q(4)*q(5)*pl**2+q(l)*q 
(7)*ek*pl+3*q(2)*q(6)*ek*pl+q(l)*q(5)*ek*pl+6*q(2)*q(4)*ek*pl+q(4 
)*q(7)*ek+q(4)*q(5)*ek)/3.0+aj*ek*pl**2*(8*q(l)*q(2)*pl**4-(2 
*q(l)*q(3)*ak*pl**3)-(8*q(l)*q(7)*pl**3)-(8*q(2)*q(6)*pl**3)-(30* 
q(3)*q(6)*ek*pl**2)-(32*q(3)*q(4)*ek*pl**2)-(5*q(l)*q(2)*ek*pl**2 
)+8*q(6)*q(7)*pl**2+14*q(l)*q(7)*ek*pl+15*q(2)*q(6)*ek*pl+7*q(l)* 
q(5)*ek*pl+10*q(2)*q(4)*ek*pl+36*q(6)*q(7)*ek+50*q(4)*q(7)*ek+21* 
q(5)*q(6)*ek+28*q(4)*q(5)*ek)/3.0 
t0=t0+2.0/3.0*el*ek**2*pl+*2*(6*q(l)*q(2)*pl**4-(12*q(l)*q(7)* 
pl**3)-(10*q(2)*q(6)*pl**3)-(6*q(l)*q(5)*pl**3)-(4*q(2)*q(4)*pl** 
3)-(4*q(3)*q(6)*ek*pl**2)-(4*q(3)*q(4)*ak*pl**2)+16*q(6)*q(7)*pl 
**2+4*q(4)*q(7)*pl**2+6*q(5)*q(6)*pl**2+3*q(l)*q(7)*ek*pl+3*q(2)* 
q(6)*ek*pl+3*q(l)*q(5)*ek*pl+3*q(2)*q(4)*ek*pl+7*q(6)*q(7)*ek+10* 
q(4)*q(7)*ek+6*q(5)*q(6)*ek+9*q(4)*q(5)*ek)+4*ta*(q(6)+q(4))* 
(q(7)+q(5) )*ek**4*pl**4-(l .0/3.0*re*ek**3*pl**2*(8*q(l)*q(7)* 
pl**3+8*q(2)*q(6)*pl**3+8*q(l)*q(5)*pl**3+8*q(2)*q(4)*pl**3-(24*q 
(6)*q(7)*pl**2)-(16*q(4)*q(7)*pl**2)-(16*q(5)*q(6)*pl**2)-(8*q(4) 
*q(5)*pl**2)-(3*q(6)*q(7)*ek)-(3*q(4)*q(7)*ek)-(3*q(5)*q(6)*ek)-( 
3*q(4)*q(5)*ek))) 

bmn2(4,7)=t0-(l . 0/3. 0*de*(5*q(l)*q(3)*pl**3+3*q(3)*q(6)*p 1**2 
+8*q(3)*q(4)*pl**2-(4*q(l)*q(2)*pl**2)-(q(l)*q(7)*pl)-(3*q(2)*q(6 
)*pl)-(7*q(2)*q(4)*pl)-(q(4)*q(7)))) 
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t0=2.0/3 .0*al*ak**2*(2*q(l)**2*pl**6-(4*q(l)*q(6)*pl**5)+2*q(6 
)**2*pl**4+8*q(2)**2*pl**4+3*q(l)*q(6)*ek*pl**3+3*q(l)*q(4)*ak*pl 
**3-(16*q(2)*q(7)*pl**3)-(12*q(3)*q(7)*ek*pl**2)+q(6)**2*ek*pl**2 
+5*q(4)*q(6)*ak*pl**2-(12*q(3)*q(5)*ek*pl**2)+4*q(4)**2*ak*pl**2+ 
8*q(7)**2*pl**2+9*q(2)*q(7)*ek*pl+9*q(2)*q(5)*ek*pl+3*q(7)**2*ak+ 
3*q(5)*q(7)*ak)-(1.0/6.0*re*ek**3*(16*q(l)*q(6)*pl**5+16*q(l) 
*q(4)*pl**5-(16*q(6)**2*pl**4)-(16*q(4)*q(6)*pl**4)+48*q(2)*q(7)* 
pl**3+48*q(2)*q(5)*pl**3-(3*q(6)**2*ek*pl**2)-(6*q(4)*q(6)*ek*pl 
**2)-(3*q(4)**2*ak*pl**2)-(48*q(7)**2*pl**2)-(48*q(5)*q(7)*pl**2) 
-(9*q(7)**2*ak)-(18*q(5)*q(7)*ek)-(9*q(5)**2*ek))) 
bmn2(5 t5)=t0+ej*ak**2*(16*q(3)**2*pl**4-(3*q(l)**2*pl**4) +6*q( 
l)*q(6)*pl**3-(4*q(2)*q(3)*pl**3)-(28*q(3)*q(7)*pl**2)+q(6)**2*pl 
**2+8*q(4)*q(6)*pl**2+4*q(4)**2*pl**2-(8*q(2)**2*pl**2)+20*q(2)*q 
(7)*pl+4*q(7)**2)/3.0+2*te*ek**4*pl**2*((q(6)+q(4))**2*pl**2+ 
3*(q(7)+q(5))**2)+he*ek**2*(7*q(3)**2*pl**2+q(l)**2*pl**2-(7* 
q(2)*(2*q(3)*pl-q(2)))+2*q(l)*q(4)*pi+q(4)**2)/6.0 


tO=he*ek*pl* (2*q( 1) *q(3) *pl**4- ( 10*q(3) *q (6) *pi**3) - (8*q(3) *q( 
4)*pl**3)-(8*q(l)*q(2)*pl**3)-(3*q(l)*q(3)*ek*pl**2)+6*q(l)*q(7)* 
pl**2+8*q(2)*q(6)*pl**2-(3*q(3)*q(4)*ek*pl)+3*q(l)*q(2)*ek*pl+2*q 

(6) *q(7)*pl+8*q(4)*q(7)*pl+3*q(2)*q(4)*ek)/3.0+ej*ek*pH‘*2*(8 
*q(l)*q(2)*pl’M‘4-(2*q(l)*q(3)*ek*pl**3)-(8*q(l)*q(7)*pl**3)-(8*q( 
2)*q(6)*pl**3)-(20*q(3)*q(6)*ek*pl**2)-(22*q(3)*q(4)*ek*pl**2)-(5 
*q(l)*q(2)*ek*pl**2)+8*q(6)*q(7)*pl**2+13*q(l)*q(7)*ek*pl+14*q(2) 
*q(6)*ek*pl+6*q(l)*q(5)*ek*pl+9*q(2)*q(4)*ek*pl+8*q(6)*q(7)*ek+21 
*q(4)*q(7)*ak+2*q(5)*q(6)*ek+8*q(4)*q(5)*ek)/3.0 

bmn2(5 ,6)=t0+2.0/3 .0*el*ak**2*pl**2*(6*q(l)*q(2)*pl**4-(10*q(l 
)*q(7)*pl**3)-(12*q(2)*q(6)*pl**3)-(4*q(l)*q(5)*pl**3)-(6*q(2)*q( 
4)*pl**3)-(4*q(3)*q(6)*ek*pl’Mi2)-(4*q(3)*q(4)*ek*pl**2)+16*q(6)*q 

(7) *pl**2+6*q(4)*q(7)*pl**2+4*q(5)*q(6)*pl**2+3*q(l)*q(7)*ek*pl+3 
*q(2)*q(6)*ek*pl+3*q(l)*q(5)*ek*pl+3*q(2)*q(4)*ek*pl+3*q(6)*q(7)* 
ek+6*q(4)*q(7)*ak+2*q(5)*q(6)*ek+5*q(4)*q(5)*ek)+4*te*(q(6)+q 
(4))*(q(7)+q(5))*ak**4*pl**4-(l .0/3 .0*re*ek**3*pl**2*(8*q(l)* 
q(7)*pl**3+8*q(2)*q(6)*pl**3+8*q(l)+q(5)*pl**3+8*q(2)*q(4)*pl**3- 
(24*q(6)*q(7)*pl**2)-(16*q(4)*q(7)*pl**2)-(16*q(5)*q(6)*pl**2)-(8 
*q(4)*q(5)*pl**2)-(3*q(6)*q(7)*ek)-(3*q(4)*q(7)*ek)-(3*q(5)*q(6)* 
ek)- (3*q(4)*q(5)*ek) ))- (2.0/3. 0*fe*ek*pi*(q(l)*pl+q(4))*(q(3) 
*pl-q(2))) 


t0“aj*ek*(4*q(l)**2*pl**6-(8*q(l)*q(6)*pH‘*5)+16*q(3)**2*ek*pl 

**4-(3*q(l)**2*ek*pl**4)+4*q(6)**2*pl**4+12*q(2)**2*pl**4+13*q(l) 

*q(6)*ek*pl**3+7*q(l)*q(4)*ek*pl**3-(4*q(2)*q(3)*ek*pl**3)-(24*q( 

2)*q(7)*pH,*3)-(56*q(3)*q(7)*ek*pl**2)+4*q(6)**2*ak*pl**2+21*q(4) 
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*q(6)*ek*pl**2-(28*q(3)*q(5)*ek*pl**2)+14*q(4)**2*ek*pl**2-(8*q(2 
)**2*ek*pl**2)+12*q(7)**2*pl**2+40*q(2)*q(7)*ek*pl+20*q(2)*q(5)* 
ek*pl+12*q(7)**2*ek+8*q(5)*q(7)*ek)/3.0 
t0=t0+al*ak**2*(4*q(l)**2*pl**6-(20*q(l)*q(6)*pl**5)-(12*q(l)* 
q(4)*pl**5)+16*q(6)**2*pl**4+12*q(4)*q(6)*pl**4+16*q(2)**2*pl**4+ 
6*q(l)*q(6)*ek*pl**3+6*q(l)*q(4)*ek*pl**3-(64*q(2)*q(7)*pl**3)-( 
32*q(2)*q(5)*pl**3)-(24*q(3)*q(7)*ek*pl**2)+3*q(6)**2*ek*pl**2+12 
*q(4) *q(6) *ek*pl**2- (24*q(3) *q(5) *ek*pl**2) +9*q(4) **2*ek*pl**2+48 
*q(7)**2*pl**2+32*q(5)*q(7)*pl**2+18*q(2)*q(7)*ek*pl+18*q(2)*q(5) 
*ak*pl+9*q(7)**2*ak+12*q(5)  *q(7) *ek+3*q(5)  **2*ek) /3 . 0 
tO=tO-( 1.0/6 .0*re*ek**3*(16*q(l)*q(6)*pl**5+16*q(l)*q(4)*pl**5 
-(24*q(6)**2*pl**4)-(32*q(4)*q(6)*pl**4)-(8*q(4)**2*pl**4)+48*q(2 
)*q(7)*pl**3+48*q(2)*q(5)*pl**3-(3*q(6)**2*ek*pl**2)-(6*q(4)*q(6) 
*ek*pl**2)-(3*q(4)**2*ek*pl**2)-(72*q(7)**2*pl**2)-(96*q(5)*q(7)* 
pl**2)-(24*q(5)**2*pl**2)-(9*q(7)**2*ek)-(18*q(5)*q(7)*ek)-(9*q(5 
)**2*ak)))+ha*ak*(24*q(3)**2*pl**4-(6*q(l)**2*pl**4)+12*q(l)* 
q(6)*pl**3+4*q(2)*q(3)*pl**3+7*q(3)**2*ek*pl**2+q(l)**2*ek*pl**2- 
(52*q(3)*q(7)*pl**2)+2*q(6)**2*pl**2+16*q(4)*q(6)*pl**2+8*q(4)**2 
*pl**2-(22*q(2)**2*pl**2)+2*q(l)*q(4)*ek*pl-(14*q(2)*q(3)*ek*pl)+ 
40*q(2) *q(7 ) *pl+q (4) **2*ak+7*q(2) **2*ek+6*q(7) **2) /6 . 0+2*te* 
ek**4*pl**2* ( (q(6) +q(4) ) **2*pl**2+3* (q(7)+q(5) ) **2) 
bmn2 (5 , 7) =t0+f e*ek* (5*q(3) **2*pl**2+q ( 1 ) **2*pl**2- (5*q(2) *  (2*q 
(3)*pl-q(2)))+2*q(l)*q(4)*pl+q(4)**2)/6.0 


t0=he*pl**2*(36*q(l)**2*pl**6-(72*q(l)*q(6)*pl**5)+16*q(3)**2* 
ek*pl**4-(44*q(l)**2*ek*pl**4)+36*q(6)**2*pl**4+12*q(2)**2*pl**4+ 
120*q(l)*q(6)*ek*pl**3+32*q(l)*q(4)*ek*pl**3-(24*q(2)*q(7)*pl**3) 
+q(3) **2*ek**2*pl**2+7*q( 1) **2*ek**2*pl**2- (52*q(3)*q(7) *ek*pl**2 
)  +24*q(6)**2*ek*pl**2+ 168*q(4)  *q(6)*ek*p  1**2-  (20*q(3)*q(5)*ek*pl 
**2)+100*q(4)**2*ek*pl**2-(12*q(2)**2*ek*pl**2)+12*q(7)**2*pl**2+ 
14*q(l)*q(4)*ek**2*pl-(2*q(2)*q(3)*ek**2*pl)+40*q(2)*q(7)*ek*pl+ 
16*q(2)*q(5)*ak*pl+7*q(4)**2*ek**2+q(2)**2*ek**2+8*q(7)**2*ak+4*q 
(5)*q(7)*ek)/6 .0 

t0=t0+ej*ek*pl**2*(24*q(l)**2*pl>t‘*6-(72*q(l)*q(6)*pl**5)-(24*q 
(l)*q(4)*pl**5)+4*q(3)**2*ek*pl**4-(8*q(l)**2*ek*pl**4)+48*q(6)** 
2*pi**4+24*q(4)*q(6)*pl**4+8*q(2)**2*pl**4+60*q(l)*q(6)*ak*pl**3+ 
44*q(l)*q(4)*ek*pl**3-(24*q(2)*q(7)*pl**3)-(8*q(2)*q(5)*pl**3)-( 
28*q(3)*q(7)*ek*pH'*2)+24*q(6)**2*ek*pl**2+108*q(4)*q(6)*ek*pl**2 
- (20*q(3) *q(5) *ak*pl**2) +76*q(4) **2*ek*pl**2- (3*q(2) **2*ek*pl**2) 
+16*q(7)**2*pl**2+8*q(5)*q(7)*pl**2+20*q(2)*q(7)*ek*pi+14*q(2)*q( 
5)*ek*pl+8*q(7)**2*ek+8*q(5)*q(7)*ek+q(5)**2*ek)/3.0 

t0=t0+2.0 '3.0*el*ek**2*pl**2*(8*q(l)**2*pl**6-(48*q(l)*q(6)*pl 
**5)-(32*q(l)*q(4)*pH,*5)+48*q(6)**2*pl**4+48*q(4)*q(6)*pl**4+8+q 
(4)**2*pl**4+2*q(2)**2*pl**4+9*q(l)*q(6)*ek*pl**3+9*q(l)*q(4)*ek* 
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pl**3-(16*q(2)*q(7)*pl**3)-(12*q(2)*q(5)*pl**3)-(4*q(3)*q(7)*ek* 

pl**2)+6*q(6)**2*ek*pl**2+21*q(4)*q(6)*ek*pl**2-(4*q(3)*q(5)*ek* 

pl**2)+15*q(4)**2*ak*pl**2+16*q(7)**2*pl**2+16*q(5)*q(7)*pl**2+2* 

q(5)**2*pl**2+3*q(2)*q(7)*ak*pl+3*q(2)*q(5)*ak*pl+2*q(7)**2*ek+3* 

q(5)*q(7)*ak+q(5)**2*ek) 

t0=t0-(1.0/6.0*re*ek**3*pl**2*(48*q(l)*q(6)*pl**5+48*q(l)*q(4) 

*pl**5-(96*q(6)**2*pl**4)-(144*q(4)*q(6)*pl**4)-(48*q(4)’M‘2*pl**4 

)+16*q(2)*q(7)*pl**3+16*q(2)*q(5)*pl**3-(9*q(6)**2*ek*pl**2)-(18* 

q(4)*q(6)*ek*pl**2)-(9*q(4)**2*ak*pl**2)-(32*q(7)**2*pl**2)-(48*q 

(5)*q(7)*pl**2)-(16*q(5)**2*pl**2)-(3*q(7)**2*ek)-(6*q(5)*q(7)*ek 

)-(3*q(5)**2*ek)))+f9*pl‘M‘2*(8*q(3)**2*pl**4-(19*q(l)**2*pl** 

4) +42*q(l)*q(6)*pl**3+4*q(l)*q(4)*pl**3+4*q(2)*q(3)*pl**3+2*q(3) 
**2*ek*pl**2+10*q(l)**2*ek*pl**2-(20*q(3)*q(7)*pl**2)+9*q(6)**2* 
pl**2+60*q(4)*q(6)*pl**2+32*q(4)**2*pl**2-(9*q(2)**2*pl**2)+20*q( 
l)*q(4)*ek*pl-(4*q(2)*q(3)*ak*pl)+14*q(2)*q(7)*pl+10*q(4)**2*ek+2 
*q(2)**2*ek+3*q(7)**2) /6 .0 

bmn2(6,6)=t0+2*te*ek**4*pl**4*(3*(q(6)+q(4))**2*pl**2+(q(7)+q( 

5)  )**2)+de*pl**2*(q(3)**2*pi**2+7*q(l)**2*pl**2-(q(2)*(2*q(3 
)*pl-q(2)))+14*q(l)*q(4)*pl+7*q(4)**2)/6.0 


t0=he*pl*(12*q(l)*q(2)*pl**5+2*q(i)*q(3)*ak*pl**4-(12*q(l)*q(7 
)*pl**4)-(12*q(2)*q(6)*pl**4)-(26*q(3)*q(6)*ek*pl**3)-(24*q(3)*q( 
4)*ek*pl**3)-(16*q(l)*q(2)*ek*pl**3)+12*q(6)*q(7)*pl**3-(3*q(l)*q 
(3)*ek**2*pl**2)+20*q(l)*q(7)*ak*pl**2+20*q(2)*q(6)*ek*pl**2+6*q( 
l)*q(5)*ek*pl**2+4*q(2)*q(4)*ek*pl**2-(3*q(3)*q(4)*ek**2*pl)+3*q( 
l)*q(2)*ek**2*pl+8*q(6)*q(7)*ak*pl+28*q(4)*q(7)*ek*pl+2*q(5)*q(6) 
*ek*pl+8*q(4) *q(5) *ek*pl+3*q(2) *q(4) *ek**2) /3 . 0- ( 1 . 0/3 . 0*f a* 
pl*(2*q(l)*q(3)*pl**4+10*q(3)*q(6)*pl**3+12*q(3)*q(4)*pl**3+5*q(l 
)*q(2)*pl**3+4*q(l)*q(3)*ek*pl**2-(7*q(l)*q(7)*pl**2)-(7*q(2)*q(6 
)*pl**2)-(2*q(2)*q(4)*pl**2)+4*q(3)*q(4)*ek*pl-(4*q(l)*q(2)*ek*pl 
)-(3*q(6)*q(7)*pl)-(10*q(4)*q(7)*pl)-(4*q(2)*q(4)*ek))) 

t0=t0+ej*ek,*pl**2*(16*q(l)*q(2)*pl**4-(2*q(l)*q(3)*ek*pl**3)-( 

24*q(l)*q(7)*pl**3)-(24*q(2)*q(6)*pl**3)-(8*q(l)*q(5)*pl**3)-(8*q 

(2)*q(4)*pl**3)-(28*q(3)*q(6)*ak*pl**2)-(30*q(3)*q(4)*ek*pl**2)-( 

5*q(l)*q(2)*ak*pl**2)+32*q(6)*q(7)*pl**2+8*q(4)*q(7)*pl**2+8*q(5) 

*q(6)*pl**2+20*q(l)*q(7)*ek*pl+20*q(2)*q(6)*ek*pi+13*q(l)*q(5)*ek 

*pl+15*q(2)*q(4)*ek*pl+16*q(6)*q(7)*ak+36*q(4)*q(7)*ek+8*q(5)*q(6 

)*ek+21*q(4)*q(5)*ak)/3.0 

bmn2(6,7)=t0+2.0/3.0*al*ek*#2*pl**2*(6*q(l)*q(2)*pl**4-(16*q(l 

)*q(7)*pl**3)-(16*q(2)*q(6)*pl**3)-(10*q(l)*q(5)*pl**3)-(10*q(2)* 

q(4)*pl**3)-(4*q(3)*q(6)*ak*pl**2)-(4*q(3)*q(4)*ek*pl**2)+32*q(6) 

*q(7)*pl**2+16*q(4)*q(7)*pl**2+16*q(5)*q(6)*pl**2+6*q(4)*q(5)*pl 

**2+3*q(l)*q(7)*ek*pl+3*q(2)*q(6)*ak*pl+3*q(l)*q(5)*ek*pl+3*q(2)* 

q(4)*ek*pl+4*q(6)*q(7)*ak+7*q(4)*q(7)*ek+3*q(5)*q(6)*ek+6*q(4)*q( 
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5)  *ak)  +4*ta*  (q(6)  +q(4) )  *  (q(7)  +q(5)  )  *ak**4*pl**4-  (1.0/3. 0*re 

*ek**3*pl**2*(8*q(l)*q(7)*pl**3+8*q(2)*q(6)*pl**3+8*q(l)*q(5)* 

pl**3+8*q(2)*q(4)*pl**3-(32*q(6)*q(7)*pl**2)-(24*q(4)*q(7)*pl**2) 

-(24*q(5)*q(6)*pl**2)-(16*q(4)*q(5)*pl**2)-(3*q(6)*q(7)*ek)-(3*q( 

4)*q(7)*ek)-(3*q(5)*q(6)*ek)-(3*q(4)*q(5)*ak)))-(de*pl*(q(l) 

*pl+q(4) )*(q(3)*pl-q(2))) 


t0=he*  ( 12*q( 1 ) **2*pl**6- (24*q(  1 )  *q(6) *pi**5)  +48*q(3)  **2*ek*pl 
**4-(12*q(l)**2*ek*pl**4)+12*q(6)**2*pl**4+36*q(2)**2*pl**4+40*q( 

1) *q(6)*ek*pl**3+16*q(l)*q(4)*ek*pl**3+8*q(2)*q(3)*ak*pl**3-(72*q 
(2)*q(7)*pl**3)+7*q(3)**2*ek**2*pl**2+q(l)**2*ek**2*pl**2-(156*q( 
3)*q(7)*ek*pl**2)+8*q(6)**2*ek*pl**2+56*q(4)*q(6)*ak*pl**2-(52*q( 
3)*q(5)*ek*pl**2)+36*q(4)**2*ek*pl**2-(44*q(2)**2*ek*pl**2)+36*q( 
7)**2*pl**2+2*q(l)*q(4)*ek**2*pl-(14*q(2)*q(3)*ek**2*pl)+120*q(2) 
*q(7  )  *ek*pl+40*q(2)  *q(5)  *ek*pl+q(4) **2*ak**2*7*q(2)  **2*ak**2+24*q 
(7)**2*ek+12*q(5)*q(7)*ek)/6.0 

t0=t0+ej*ek*(8*q(l)**2*pl**6-(24*q(l)*q(6)*pl**5)-(8*q(l)*q(4) 
*pl**5)  +  16*q(3)**2*ek*pl**4-(3*q(l)**2*ak*pl**4)+16*q(6)**2*pl**4 
+8*q(4)*q(6)*pl**4+24*q(2)**2*pl**4+20*q(l)*q(6)*ek*pl**3+i4*q(l) 
*q(4)*ak*pl**3-(4*q(2)*q(3)*ek*pl**3)-(72*q(2)*q(7)*pl**3)-(24*q( 

2)  *q(5)*pl**3)  - (84*q(3)  *q(7) *ek*pl**2)  +8*q(6)  **2*ek*pl**2+36*q(4) 
*q(6)*ek*pl**2“(56*q(3)*q(5)*ek*pl**2)+25*q(4)**2*ek*pl**2-(8*q(2 
)**2*ek*pl**2)+48*q(7)**2*pl**2+24*q(5)*q(7)*pl**2+60*q(2)*q(7)* 
ek*pl+40*q(2)*q(5)*ek*pl+24*q(7)**2*ek+24*q(5)*q(7)*ek+4*q(5)**2* 
ek)/3.0 

t0=t0+2 . 0/3 . 0*el*ek**2*  (2*q( 1) **2*pl**6-  ( 16*q(l)  *q(6)  *pl**5)  -  ( 
12*q(l)*q(4)*pl**5)  +  16*q(6)**2*pl**4+16*q(4)*q(6)*pl**4+2*q(4)**2 
*pl**4+8*q(2)**2*pl**4+3*q(l)*q(6)*ek*pl**3+3*q(l)*q(4)*ek*pl**3- 
(48*q(2)*q(7)*pl**3)-(32*q(2)*q(5)*pl**3)-(12*q(3)*q(7)*ek*pl**2) 
+2*q(6)**2*ek*pl**2+7*q(4)*q(6)*ak*pl**2-(12*q(3)*q(5)*ek*pl**2)  + 
5*q(4)**2*ek*pl**2+48*q(7)**2*pl**2+48*q(5)*q(7)*pl**2+8*q(5)**2* 
pl**2+9*q(2)*q(7)*ek*pl+9*q(2)*q(5)*ak*pl+6*q(7)**2*ek+9*q(5)*q(7 
)*ek+3*q(5)**2*ek) 

t0=t0-(l .0/6.0*re*ek**3*(16*q(l)*q(6)*pl**5+16*q(l)*q(4)*pl**5 
-(32*q(6)**2*pl**4)-(48*q(4)*q(6)*pl**4)-(16*q(4)**2*pl**4)+48*q( 
2)*q(7)*pl**3+48*q(2)*q(5)*pl**3-(3*q(6)**2*ek*pl**2)-(6*q(4)*q(6 
)*ek*pl**2)-(3*q(4)**2*ek*pl**2)-(96*q(7)**2*pl**2)-(144*q(5)*q(7 
)*pl**2)-(48*q(5)**2*pl**2)-(9*q(7)**2*ek)-(18*q(5)*q(7)*ek)-(9*q 

(5) **2*ek) )  )+f e*(32*q(3)**2*pl**4-(9*q(l)**2*pl**4)+14*q(l)*q 

(6) *pl**3-(4*q(l)*q(4)*pl**3)-(4*q(2)*q(3)*pl**3)+10*q(3)**2*ek* 
pl**2+2*q(l)**2*ek*pl**2-(60*q(3)*q(7)*pl**2)+3*q(6)**2*pl**2+20* 
q(4)*q(6)*pl**2+8*q(4)**2*pl**2-(19*q(2)**2*pl**2)+4*q(l)*q(4)*ek 
*pl-(20*q(2)*q(3)*ek*pl)+42*q(2)*q(7)*pl+2*q(4)**2*ek+10*q(2)**2* 
ek+9*q(7) **2) /6 . 0 
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bmn2(7,7)=t0+2*te*ek**4*pl**2*((q(6)+q(4))**2*pl**2+3*(q(7)+q( 
.  5))**2)+de*(7*q(3)**2*pl**2+q(l)**2*pl**2-(7*q(2)*(2*q(3)*pl 
.  -q(2)))+2*q(l)*q(4)*pl+q(4)**2)/6.0 
c 

do  100  ii=l ,7 
do  100  jj=ii,7 
100  bmn2(j j ,ii)=bmn2(ii, j j) 
return 
end 
c 
c 
c 

subroutine  sbeamk(bmk,ekl) 
c 

implicit  double  precision  (a-h,o-z) 
c 

common/ elas/ae , de , f e , he , e j , el , re , te , as , ds , f s 
dimension  bmk(7,7) 
do  10  ii=l,7 
do  10  j j=l ,7 

10  bmk(j j ,ii)=0.0d0 
c 

bmk(2,2)=ae 

c 

bmk(5,5)=he*ekl**2 

c 

bmk(5 , 7 ) =he*ekl**2+f e*ekl 
c 

bmk(7 , 7 ) =he*ekl**2+f e*2*ekl+de 
c 

bmk(4t4)=9*fs*ekl**2+6*ds*ekl+as 

c 

bmk(4,6)=9*fs*ekl**2+6*ds*ekl+as 

c 

bmk(6,6)=9*f s*ekl**2+6*ds*ekl+as 
c 

do  100  ii=l ,7 
do  100  jj=ii,7 
100  bmk(j j ,ii)=bmk(ii, j j) 
return 
end 
c 
c 
c 

subroutine  sbmnl(qfbmnl ,ek) 
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c 

c  Note  that  kl  appears  as  ’ek’  in  this  subroutine 
c 

c  The  equations  in  this  subroutine  were  generated  by  MACSYMA. 
c 

implicit  double  precision  (a-h,o-z) 
c 

common/elas/ae,de,f e,he,ej ,el ,re,te ,as ,ds ,f s 
dimension  bmnl(7,7) ,q(7) 
c 

bmnl (2 ,2) =3*q(2) *ae 
c 

bmnl(2,4)=ae*q(4) 

c 

bmnl(2,5)=3*he*(q(7)+q(5))*ek**2+3*fe*q(7)*ek 

c 


bmnl(2,6)=0.0 

c 

bmnl(2,7)=3*he*(q(7)+q(5))*ek**2+3*fe*(2*q(7)+q(5))*ek+3*de*q(7) 

c 

bmnl(4,4)*q(2)*ae 

c 

bmnl (5 ,S)=3*q(2)*he*ek**2 
c 

bmnl(5,7)=3*q(2)*he*ek**2+3*q(2)*fe*ek 

c 

bmnl(7,7)=3*q(2)*he*ek**2+6*q(2)*fe*ek+3*q(2)*de 

c 

do  100  ii=l,7 
do  100  jj=ii,7 
100  bmnl(j j ,ii)«bmnl(ii, j j) 
return 
end 
c 
c 
c 

subroutine  sbmn2(q,bmn2,ek) 
c 

c  note  that  kl  appears  as  ’ek’  in  this  subroutine 
c 

c  the  equations  in  this  subroutine  were  generated  by  macsyma. 
c 

implicit  double  precision  (a-h,o-z) 
c 

common/elas/ae,de,fe,he,ej ,el,re,te,as ,ds ,f s 
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dimension  bmn2(7,7) ,q(7) 

c 

c 

bmn2 (2 , 2) =7 . 0/6 . 0*he* (q(7) +q(5) ) **2*ek**2+5 . 0/3 . 0*f e*q(7) * 

•  (q(7)+q(5))*ek+7.0/6.0*de*q(7)**2+ae*(q(4)**2+3*q(2)**2) 

.  /2.0 

c 

bmn2(2,4)=q(2)*ae*q(4) 

c 

bmn2(2,5)=7.0/3.0*q(2)*he*(q(7)+q(5))*ek**2+5.0/3.0*q(2)*fe 
.  *q(7)*ek 


bmn2(2,7)=7.0/3 .0*q(2)*he*(q(7)+q(5) )*ek**2+5 .0/3.0*q(2)*f e 
.  * (2*q(7)+q(5) ) *ek+7 . 0/3 . 0*q(2) *de*q(7) 

bmn2(4,4)=he*(q(7)+q(5) )**2*ek**2/6.0+f e*q(7)*(q(7)+q(5))* 

.  ek/3 . 0+de*q(7) **2/6 . 0+ae* (3*q(4) **2+q(2) **2) /2 . 0 

bmn2 (4 ,5) =he*q(4) * (q(7)+q(5) ) *ek**2/3 . 0+f e*q(4) *q(7) *ek/ 

.  3.0 


bran2(4,7)=he*q(4)*(q(7)+q(5))*ak**2/3.0*fa*q(4)*(2*q(7)+q( 

.  5) )*ek/3.0+de*q(4)*q(7)/3 .0 

bmn2(5,5)=3.0/2.0*re*(q(7)+q(5))**2*ek**4+2*el*q(7)*(q(7)+ 

•  q(5))*ek**3*4.0/3.0*ej*q(7)**2*ek**2+he*(q(4)**2+7*q(2)** 

.  2)*ek**2/6.0 

bmn2(5,7)=3.0/2.0*re*(q(7)+q(5))**2*ek**4+el*(q(7)+q(5))*( 

.  3*q(7)+q(5) )*ek**3+4.0/3.0*ej*q(7)*(3*q(7)+2*q(5) )*ek**2+he 
.  *ek*((q(4)**2+7*q(2)**2)*ek+6*q(7)**2)/6.0+fe*(q(4)**2+5*q( 
.  2)**2)*ek/6 .0 


c 

bmn2(7 ,7)=3.0/2.0*re*(q(7)+q(5) )**2*ek**4+2*el*(q(7)+q(5) ) 

.  *(2*q(7)+q(5))*ek**3+4.0/3.0*ej*(6*q(7)**2+6*q(5)*q(7)+q(5)** 
.  2)*ek**2+he*ek*((q(4)**2+7*q(2)**2)*ek+12*q(7)*(2*q(7)+q(5))) 
.  /6.0+fe*(2*(q(4)**2+5*q(2)**2)*ek+9*q(7)**2)/6.0+de*(q(4 
.  )**2+7*q(2)**2)/6.0 
c 

do  100  ii*l,7 
do  100  jj=ii,7 
100  bmn2(j j ,ii)=bmn2(ii, j j) 
return 
end 
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